IDENTIFICATION 


PRODUCT CODE: 
PRODUCT NAME: 

DATE CREATED: 
MAINTAINER : 
AUTHOR; 


MAINDEC 9A-D4EA-D 

TC59 (9 TRACK) DATA 
RELIABILITY TEST 

January 15, 1968 

Diagnostic Group 

Keith F, Nelson 


POP-9; 

LIBRARY 




-1 


2 . 

2.1 


2.2 


2.3 

3. 


4. 

4.1 


ABSTRACT 

The TC59 Data Reliability Test is primarily designed 
for the collection of statistical information pertaining 
to the data reliability of the tape drives that may be 
associated with the TC59 Magnetic Tape Control. The 
program is also designed to be usable as an aid to the 
hardward debugging and maintenance of the TC59 Magnetic 
Tape Control and its associated magnetic tape drives. 

This program may also be used as an extended data 
reliability acceptance test. 

REQUIREMENTS 

Equipment 

PDP-9 

TC59 Magnetic Tape Control 

1 to 8 TU20 or Similar Magnetic Tape Transports 
Storage 

The program occupies most of memory from address /l/Q to 
7777. 

In addition, one write buffer area is utilized and one 
read buffer area is utilized for data input and compare 
and they are: 

Write Buffer occupies 10000 to 13723 

Read Buffer occupies addresses 13724 zo\7677 

Preliminary Programs 

The 1C59 Control Test and Drive Function Timer programs 
should run in their ennre.y before attempting to run 
the Data Reliability Test. 

Loading Procedure 

Place the ABS binary tape in the Reader 
Set ADDRESS to 17720 
Press I/O RESET 
Press READ IN 

Starting Procedure 

Control Switch Settings 

When starting at address /2// there are no control switch 
settings, all parameters are loaded via the teletype 
keyboard . 
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W’hen starting at address 3000, only 1 drive may be 
selected and the program will halt at EOT. Control 
switch settings are as follows: 


Once started, the program may be stopped at any time 
and restarting at address 2000 will cause the drive 
error and record counters to be printed. 


AC 

SECTION 

A 

B 


0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

0 

0 

0 

0 

0 

0 

0 

0, 

0 

0 

0 

0 

o 

0 

0 


A 


B 

c 

D 


E 


F 

G 

H 


SWS 

1, 

3 , 4 


USAGE 

DRIVE SELECTION 

WRITE ROUTINE EXIT MODE 

00 EOT 

01 END OF RECORD LENGTH SEQUENCE 
10 or 11 EVERY RECORD 


15 

0 


16 

0 

I 


17 

o 


C 5 


SELECT READ PASS 

0 NO READ PASS 

1 MAKE READ PASS 


D 6, 7 


READ STOP MODE 

00 NONSTOP 

01 START STOP 

10 or 11 NONSTOP-START STOP RANDOM 


E 8,9 RECORD LENGTH SEQUENCE 

00 24 CHARACTER RECORDS 

01 k008 CHARACTER RECORDS 

10 24 TO 4008 MIN TO MAX 

11 k008 TO 24 MAX TO MIN 


F 


G 


H 


10 , 11 


12, 13 


14 


DENSITY SELECT 

11 800 BPI ONLY VALID SELECTION 


WRITE STOP MODE 

00 NON STOP 

01 START STOP 
10 or 11 RANDOM 


NON STOP START STOP DELAYS 


SELECT PARITY 

0 EVEN 

1 ODD 


I 


15, 16 


17 


SELECT PATTERN 

(See Paragraphs 4. 3. 2. 4 and 4. 3. 2. 5 



4.2 Starting Addresses 

The TC59 Data Reliability Test has 3 starting addresses. 

//2/p Enter all parameter and test selections VIA 
Teletype Keyboard. 

/3/// Enter drive and test parameters via AC SWS, 
make 1 'Write or Write/Read pass to EOT and 
HALT. (See paragraph 4.1 for drive and Test 
parameters that may be selected.) 

/2/// Dump RECORD and ERROR Counters (Valid only 
after drive selection from 2//) 

4.3 Program and/or Operator Action 

4.3.1 To start at /3/// 

Set the AC Switches to select drive and test parameters 
per paragraph 4.1. 

Set ADDRESS to /3/P/ 

Press I/O RESET 
Press START 

The program will rewind the drive selected to Load 
Point, record test parameter selections and HALT at 
address . 

Clear all AC Switches to / or set as desired per 
paragraph 5.1. 

Press CONTINUE 

The Program will exercise tape in the test sequence 
selected to EOT type out accumulated error information 
and HALT 

4.3.2 To Start at //2 // 

Set ADDRESS to //2// 

Press I/O RESET 
Press START 

4. 3. 2.1 Drive Selection 

The program will type 


SELECT DRIVES 
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Any configuration of 1 to 8 drives may be selected and 
drive numbers may be typed in any sequence. After 
each drive typed in the program will type a comma(*). 
Typing in the same drive number twice will cause the 
initial selection of that drive to be deleted. 

Typing in any key except 0 to 7 will cause a question 
mark (?) to be typed before the comma and that key will 
be ignored. 

After selecting drives* a carriage return will end 
drive selection and the program proceed to test selection. 
If no drives were selected at the time the carriage return 
is typed* the process will start over again from the 
"SELECT DRIVES" type out. 

Some variations of selecting drives could appear as 
follows : 

SELECT DRIVES 3. 4* 5/ 

SELECT DRIVES 5. 4* 3/ 

In either case, drives 3, 4 and 5 are selected to be run 

SELECT DRIVES 
SELECT DRIVES 

A carriage return was typed with no drives selected. 

SELECT DRIVES 1* 9?* 1, 2 

Drive 2 is the only drive selected* drive 1 was deleted 
(typed in twice) and the 9 was ignored. 

4. 3. 2. 2 Test Selection Typeout 

At completion of Drive Selection the program will type: 

SELECT TESTS 

TST PAT PAR RLS WMO RMO 

TST Test Sequence ()? to 8) 

PAT Pattern Selection ((? to 7) 

PAR Parity Selection ((2> EVEN or 1 ODD) 

RLS Record Length Sequence 
p 24 character records 

1 4ppo character records 

2 24 to 4p^8 Min. to Max. 

3 4p^8 to 24 Max. to Min. 
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WMO Write Stop Mode 

p NONSTOP 

1 START/STOP 

2 NONSTOP START/STOP RANDOM 

RMO Read Stop Mode 

0 NONSTOP 

1 START/STOP 

2 NONSTOP START/STOP RANDOM 
3. 2. 3 Test Sequence Selections 

The first selection made is test, type in the number 

of the test desired. 

TEST DESCRIPTION 

pf Write to EOT on one drive, type accumulated 

write errors, change drives 

1 Write one record length sequence or 256 
records, change drives, as each drive 
reaches EOT type accumulated write errors. 

2 Write one record, change drives, as each 
drive reaches EOT type accumulated write 
errors . 

3 Write EOT, type accumulated write errors, 
rewind, change drives, read to EOT, type 
accumulated read errors, change drives. 

4 Write one record length sequence backspace, 
read, change drives as each drive reaches 
EOT type accumulated write and read error 
information . 

5 Write one record, backspace, read, change 
drives. As each drive reaches EOT type 
out accumulated error information. 

6 Write one record length sequence or 256 
records, change drives, backspace, change 
drives, read, change drives. As each 
drive reaches EOT type accumulated error 
information . 

7 Write one record, change drives, backspace, 
change drives, read, change drives. As 
each drive reaches EOT type accumulated 
error information. 
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8 Test 8 runs differently depending on the 
WMO and RMO selection. If both are 
selected 0 (NON STOP), each write and 
read pass will be made to the end on a 
record length sequence before changing 
drives. If either selection is START/STOP 
(l) or RANDOM ( 2 ) that pass will be made 
with drive change between each record. 

(i.e. WMO = 0 and RMO = 1, the write pass 
is made NONSTOP on each drive to end of 
RLS, the read pass is made start stop with 
a drive change between each record) . 

9 Test 9 is a read only test that may be 
used to test drive compatability or 
multiple read passes over data previously 
written. Either pattern 7 (RANDOM DATA) 
is not a valid selection for test 9 
except with certain restrictions. 

a. TEST 9 selections follows TEST 3 

b. TEST 9 selection follows TEST 6 with 
AC SW 1 = 1. 

c. TEST 9 selection follows TEST 8 with 
AC SW 1 = 1. 

d. TEST 9 selection follows TEST 5 SW 1 = 1 
and only a single drive was selected. 

4. 3. 2. 4 Even Parity Pattern Selection 

The next selection made is pattern. There are actually 
16 unique pattern selections, 8 for each parity even 


or odd 
parity 

. The 
are : 

patterns 

that 

may be selected by even 

PAT 

PAR 

DATA 


DESCRIPTION 

0 

Even 

#*6014 


High Frequency outside skew 

1 

Even 

377577 

737737 

7767767 

(etc. 

Sliding no bit (0) 
character pattern. 

) 

2 

Even 

641503 


High frequency every other track 

3 

Even 

773773 


Half frequency outside tracks. 
High frequency all inside 
tracks . 

4 

Even 

600402 

201404 


Incrementing character 
pattern no 00 codes. 
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1 


5 

Even 

177777 

377777 

677577 

Three 0 bits each tract 


6 

Even 

177777 

High frequency all but parity 

7 

Even 

RANDOM 

Random data character pattern 
no 00 codes 


4. 3. 2. 5 Odd Parity Pattern Selections 


The odd parity patterns that may be selected are: 
PAT PAR DATA DESCRIPTION 


0 

1 


2 

3 

4 


5 

6 


Odd #04004 

Odd 40020# 
040040 
010010 

Odd 136274 

Odd 017437 
11730# 
740300 

Odd 000402 
401404 
602406 

Odd 


Odd 777777 


TM 

100200 


Half frequency outside skew. 

Sliding 1 bit character pattern, 
(isolated bit pattern.) 


High frequency every other track. 

Three zeros, three ones, three 
zeros, three ones, six zeros every 
track. 

Incrementing character pattern 00 
codes included. 


Each track 3 bits then zero 


All ones pattern. High frequency 
all tracks. 


7 


Odd RANDOM Random data word pattern 00 
codes included. 
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4. 3. 2. 6 Parity Selection (PAR) 

The next selection made is parity (PAR): 

Type in a 0 to select EVEN PARITY. 

Type in a 1 to select ODD PARITY. 

4.3. 2.7 Record Length Sequence Selection (RLS) 

After density, select record length sequence (RLS): 

Type in a 0 for 24 character records. 

Type in a 1 for 4008 character records. 

Type in a 2 for 24 to 4008 character records length sequence MIN. to MAX. 

Type in a 3 for 4j2f08 to 24 character record length sequence MAX. to MIN. 

4. 3. 2. 8 Write Stop Mode Selections (WMO) 

Then select Write Stop Mode (WMO): 

0 NONSTOP 

1 START/STOP 

2 RANDOM NONSTOP START/STOP DELAYS 

4. 3. 2. 9 Read Stop Mode Selection (RMO) 

Then select Read Stop Mode (RMO): 

0 NONSTOP 

1 START/STOP 

2 RANDOM NONSTOP START/STOP DELAYS 

4.3.2«I0 Final Test Select Approval (O.K.) 

After selecting RMO, the program will pause. Examine the test sequence selected, 
and if everything is in order, type in a space. The program will type O.K. and enter 
the test parameters selected into a test table. If any key other than "SPACE" is typed, 
all parameter selections on that line will be discarded and test parameter selection 
will be restarted from test selection (TST). 
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4.3.2.11 Illegal Select Characters 

Ifj at any time during selection of test parameters, 
an invalid key is typed, all parameter selections up 
to that point on the line will be discarded, and 
parameter selection will be restarted from test 
selection (TST) on a new line. 

After at least 1 test has been fully selected to the 

O.K. typeout, a Carriage Return instead of a test 
number will end test selection and the program will 
proceed to executing all tests selected. 

A carriage return with no tests selected will cause 
the program to remain in the test selection routine. 

Up to 64 tests may be selected at any one time. 

An example of test parameter selection appears below: 

4.3.2.12 Test Selection Examples 
SELECT TESTS 

TST PAT PAR RLS WMO RMO 

? (A carriage return was typed no tests selected.) 

9 7 9 399 o.k. 

A (An invalid test number was typed.) 


’351 121 (Space wasn't typed 

after RMO) . 

3 5 1 12 1 O.K. 

(Carriage Return) 

Only two tests were selected by the above sequence: 

1. Write length of tape sequence (TEST 0) 

Pattern 7 (Random Data) Even Parity 

MriX to MIN Record Length Sequence 
NONSTOP mode of write. 

2. Write Length of Tape, rewind, read (TEST 3) 

Pattern 5 Odd parity (3 one bits each track every 27 char.) 

4008 Character Records 

Write Random NONSTOP START/STOP 

Read START/STOP 
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5 . Operating Procedure 

5.1 Operational Switch Settings 

The operational switch settings may be used to: 

a. Alter error recovery procedures. 

b. Cause error information to be typed as each error 
occurs . 

c. Cause a test sequence to be re-run with a variation 
In Pattern., Mode, Density, Parity, Record Length 
Sequence, or Read or Write stop modes. 

5.1.1 Switches to alter error recovery 

The function performed is with the switch in the 
or UP position 

SW FUNCTION USAGE 

2 Delete write with Use of this switch will cause 

Extended inter- records with write errors to be 

record Gap left on tape. The read pass 

with data typewrites selected 
would they be an aid in deter- 
mining write error origins. 

4 Select write Use of this switch will select 

statistical the backspace 2 records, space 

recovery forward 1 record, rewrite sequence. 

This sequence causes the same record 
to be rewritten on approximately 
the same area of tape. If a 
write error occurs. 

7 Delete read retrys This switch is included as an 

aid to scoping read circuits 
as it deletes the backspace, 
reread twice sequence. 

5.1.2 Error Typeout Control Switches 

All read and write errors are accumulated by drive, and as 
each drive reaches end of tape, the accumulated error 
information is typed on the teletype. For reliability or 
acceptance testing, it is not necessary for errors to be 
typed as they occur. Also, it is not desirable for 
typeouts to occur during scope loop operations. 

However, the following switches have been included as an 
aid to hardware debugging. 



- 11 - 


The 

switch a 1 or UP is functions 

selected 

SW 

FUNCTION 


3 

Type Write Error Status 



Type all Read Status and 

Data Errors 


5.1.3 Switches to Alter Test Sequences 

Normally , the program writes and reads to end of tape, 
and then starts the next test sequence that was typed 
in. To eliminate having to type in a long series of 
test selections to exercise various parameter selections 
and to eliminate waiting for end of tape to proceed 
to the next test sequence, the following switch 
options have been built into the Data Reliability test: 

The switch a "1" or "UP" is function selected. 

SW FUNCTION 

1 Dump error counters and proceed to next test 

sequence at the end of one record length sequence. 
(256 records for RLS = $ or 1, one MIN to MAX 
sequence for 2, or one MAX to MIN sequence for 3) . 

12 Increment pattern selection and repeat last test 
sequence. Pattern selection is reset to its 
original selection after pattern 7 has been 
exercised. 

13 Complement parity selection and repeat test sequence 
if new parity selection is different than the 
original test sequence. 


15 Increment RLS selection to the next sequence. After 
MAX to MIN has been exercised reset RLS selection 

to its original test sequence selection. 

16 Increment WMO to the next stop mode. After random 
Start/Stop has been exercised, reset WMO to its 
original test selection. 

17 Increment RMO to the next read stop mode. After 
read random start/stop has been exercised, reset RMO 
to its original test selection. 
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fc . ERRORS 

The normal mode (All AC SWS - 0) of operation for this 
test is to simply accumulate the errors that occur and 
to dump the contents of the counters on the teleprinter 
as each drive reaches end of tape. 

The only error typeout that can occur in this mode is if 
the tape system fails to write the same record 4 times 
in a row with extended interrecord gap. 

6.1 Error Type out Options 

The options to print, write and read errors as they 
occur are on separate switches. 

SW'3 = 1 is print write errors as detected. 

SWp = 1 is print read errors as detected. 

6.2 Error Typeout Formats 

6.2.1 Write Error Typeouts 

If SW3 = 1 and a write error status is detected by the 
program the following typeout will occur: 

WRITE STATUS ERROR 
COMD STATUS 

104700 420100 000044 

This particular typeout indicates a parity error 
(420100) occurred while writing record number 44^ on 
Drive 1 (104700) 

If read pass is selected and a write error occurs, the 
program backspaces and rewrites with extended interrecord 
gap. If the write error persists for four rewrites, the 
following typeout will occur: 

WRITE STATUS ERROR 
COMD STATUS 

104700 420100 000044 XIRG WRITTEN 4 TIMES 

The program will attempt write with extended gaps until 
end of tape is detected and this typeout will occur 
every fourth try that fails. Setting switch 2 to a 1 
will delete all writes with extended gaps. 

If AC SW1 is set to a 1, error and record counters are 
typed on the teleprinter. 

The write dump portion of these typeouts could appear 
as follows: 



WRITE DUMP 

DRV PAT PAR DEN MODE RECRDS LENGTH 

171 800 SSTP 002984 2016 MAX TO MIN 

WRITE ERRORS = 000009 
RECOVERED AT 1 00000? 

RECOVERED AT 2 000 $) 3 
RECOVERED AT 5 #01 
PERMANENT 000003 

BADSPT 

Two thousand, nine hundred fifty four records were 
written on drive 1 start stop with record length 
sequence 3- Nine write status errors occurred. Of 
the original 9 errors, two were recovered on the first 
rewrite, 3 were recovered at two rewrites, one was recovered 
at five rewrites and the other 3 were not recovered after 
7 rewrites and were counted as permanent badspots. The 
average record length was 2016 characters. 

Had SW1 been a 0 , and the drive had gone to end of tape, 
the typeout would indicate END OF TAPE instead of 
WRITE DUMP. 

6.2.2 Read Error Typeouts 

If AC SW5 is a I and a read status error occurs, the 
following type could occur: 

READ STATUS ERROR 

COMD STATUS RECORD LENGTH 
442700 420100 001746 777764 

A parity error occured on Drive 4 while reading record 
number 1746 e that was 20 PDP-9 words long. 

If AC SW1 is set to a 1 and at least one record 
length sequence has seen completely read, read error 
and record counters are typed on the teleprinter 
as follows: 

READ DUMP 

DRV PAT PAR DEN MODE RECRDS LENGTH 
0 4 0 800 NSTP 001994 2016 MIN TO MAX 

READ ERRORS = 000007 
NON RECOVERABLE = 000002 
DATA ERRORS = 000003 
DATA NO STATUS = 000001 
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During the process of reading 1994 records at 800 B 
PI on drive 0 , seven read errors occured. Two of the 
errors still occured after ? rereads and were counted 
as non recoverable* three of the error records had 
data errors. One record had data errors* but the 
status did not indicate anything was wrong with the 
record. Four of the read errors were recoverable. 

If AC SW1 had been a 0 and the read pass had gone to 
end of tape* the typeout would have been headed by: 

READ PASS 
END OF TAPE 

6.3 Error Recovery Procedures 

6.3.1 Write Error Recovery Procedures 

Write error recovery procedure varies according to: 

a. Write Only Test 

b. Read pass selected 

c. SW4 = 1 

d. SW2 = 1 and Read Pass selected. 

If the test sequence being executed is a write only 
sequence* and SW4 = p* the write error is simply 
counted and the program proceeds to the next record. 

If the test sequence being executed will make a read 
pass* and SWS 4 and 2 both = p* the recovery procedure 
is to backspace over the improperly written block and 
rewrite with extended interrecord gap. 

If SW4 = 1 and a write error is detected* the program 
will execute a backspace 2 records* space forward 1 
record* rewrite sequence. The sequence will be re- 
peated up to 7 times if the write error persists. If 
a write error is generated by all 8 writes* the error is 
counted as a permanent badspot. If the write error 
is recovered before the seventh rewrite* one is added 
to the error pass recovery table for that drive and 
error pass. Each write error is counted twice if SW4 = 1* 
once as a write error and then either as a permanent 
badspot* or as recovered at 1 to 7 rewrites. If SW4 = 1 
and read pass is selected* the backspace and write with 
extended interrecord gap is not executed unless the 
write error is determined to be a permanent badspot. 

If SW2 = 1 and the read pass is selected* write with 
extended gap is deleted. 



Read Error Recovery Procedures 

If a read error is detected by this program, it is 
counted as 1 error and the program executes a backspace, 
reread sequence. If the read error persists, the reread 
sequence is executed a second time. If tne read error 
still occurs, it is counted as a non-recoverable read 
err or. 


If SW'7 = 1, the program does not attempt to reread 
but simply continues on the next record in sequence. 

Data errors in a record are only accumulated on the 
first read, unless they are not accompanied with a 
status error. Data errors with non error status must 
be considered non-recoverable. 

DESCRIPTION 

General 

The TC59 Data Reliability Test is designed around two 
main subroutines and a series of shorter subroutines 
for manipulating drive selection and error and record 
position tables. 

The two main subroutines are of course the write and 
read routines . The write routine is exited either 
after every record, every record length sequence (RLS) 
or at end of tape. The read routine is exited when the 
last record written on tape has been read, (Tests 8 and 
9 manipulate the last record counter to cause the read 
routine to exit every record.) 

Other subroutines used, set up drive selection to the 
lowest drive number, change drive selection to the 
next highest drive and routines to get arid save error 
arid position tables for the drive currently selected. 

These subroutines are tied together in different 
sequences to form the test selections 0 to 9. 

Test Descriptions 

Test pf Description 

Test i? is a write only to end of tape test. Write errors 
are simple accumulated and their total dumped at end 
of tape. As each drive reaches end of tape, its record 
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and error counters are typed out* a rewind is started 
and the program starts to write to end of tape on the 
next highest drive selected. 

SW3 = 1 will cause each write error status to be typed 
as it occurs. 

SW4 = 1 will cause statistical write error recovery to 
be executed. 

SW1 = 1 will have no effect, the write routine is not 
exited until end of tape. 

If random data is selected, (Even or Odd PAT 7) the data 
pattern written will be changed every record. 

9*2.2 Test 1 Description 

Test 1 is also a write only test. However, the write 
routine exit is the end of every RLS. If more than one 
drive is selected to be run, the program will change 
to the next highest drive number selected at the end of 
each record length sequence. 

Write record and error counters are typed, by drive, as 
each drive reaches end of tape. 

If random data is selected, the data pattern written will 
be changed every record. 

SW3 = 1 will cause each write error status to be typed 
as it occurs. 

SW 4=1 will cause the statistical write recovery to 
be selected, 

SW1 = 1 will cause error and record counters to be typed 
when all drives have completed 1 RLS. 

9.2.3 Test 2 Description 

Test 2 is also a write only test. However, the write 
routine exits is every record, and drive selection is 
changed between every record. 

As in tests p and 1, random data delection will cause 
the data pattern written to oe changed every record. 

All switch selections valid for TEST 1 are valid for 
this TEST. 

'write mode non stop ( WMO = p) is not a valid selection 
for this test since the write routine exit is every 
record . 
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Test 3 is tiie first of the read pass after write pass 
tests. This test first writes to end of tape on the 
lowest drive selected, starts rewinding it and the., 
writes to end of tape on the next highest driver. After 
the pattern has oeeu written to end of tape on all 
drives, the program reads to end of tape on each 
drive selected. 

If a random data pattern is selected, only a single 
random data pattern is generated for the whole test. 

Switches 2, 3; and 4 are valid selections for the 
write pass. 

Switches p and 7 are valid for the readpass. 

Switch 1 is ignored. 

9.2.3 Test 4 Description 

Test 4 is also a write sequence followed by a read 
sequence test. The program starts with the lowest 
drive number selected, writes one record length 
sequence, oackspaces (or rewinds if the first sequence 
written) and then reads the record length sequence. At 
this point, the program selects the next highest 
drive and writes, backspaces (or rewinds) and then 
reads. Random data selection will cause a new pattern 
to ue written and read on each drive. 

As each drive reaches end of tape during a write 
sequence, write record and error counters are typed. 

As each drive reaches end of tape during a read 
sequence, read record and error counters typed. 

SW3 - 1 will cause each write status error to be typed 
as it occurs. 

SW4 = 1 will select statistical write recovery. 

SW 5 = 1 will cause all read status and data errors to 
be t^ped as they occur 

SW7 = 1 will delete read recovery. 

SW2 = 1 will delete read recovery 

SW1 = 1 will cause all counters to be dumped after 1 
RLS on every drives 
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9.2.fc Test p Description 

Test p operates similarly to test 4, except the write, 
backspace read sequence is for single record instead of 
a record lengtn sequence. Drive change is made after 
ever„. record has been read. 

If a random data pattern is selected, each record 
written will be a different pattern. 

ifrite record and error counters are typed as each 
drive reaches end of tape on a record. Read record and 
error counters are typed as each drive reacnes end of 
tape on a read record. 

All switch selections valid for test 4 are valid for 
this test. 

9.2.7 Test 6 Description 

Test 6 is similar in operation to test 5, in fact, 
identical if only a single drive is selected. However, 
if more than a single drive is selected, the test 
sequence is somewhat different. 

One record length sequence Is written on each drive 
selected, then all drives are backspaced (or rewound 
if the first RLS for EOT, to the beginning of the RLS, 
and then the record length sequence is read on each 
drive . 

If random data is selected, the data pattern is not 
changed until all drives have completed the read 
operation . 

Again, write record and error counters are typed as 
each drive reaches end of tape on a 'write pass and 
read record arid error counters are typed as each 
drive reaches end of tape on a read pass. 

All switch selection valid for test 4 are valid for 
this test. 

9.2.5 Test 7 Description 

Test 7 operates somewhat similar to test 6 except 
that a single record is written on each drive selected, 
each drive is oackspaced, and then the record is read 
on each drive. 

As in test p, WMO and RMO of $ or NON STOP are not 
valid selections, since the write and read routine 


exits are every record. 



Write and read record and error counters are t„. pec 
individual!,/ b„ drive as each drive reaches end of 
tape on a write or- read pass. 

All switch options valid for test 4 are valid for 
this test. 

Test 6 Description 

Test 8 is somewhat similar in operation to test 6 
in that a complete record length sequence is written 
on all drives selected before backspacing and reading. 

If either WMO or RMO selection is "p" or NONSTOP 
the program completes a full RL3 in that mode before 
changing drives. Selecting a stop mode, (2 or 3) 
will cause the program to change drives between every 
record, (i.e. if WMO = p and RMO = 1) then each RLS 
will be written non stop, out the read pass will be 
made s tart/stop with a drive change between every record. 

If random data is selected, a new data pattern is not 
generated until all drives have read to the end of a 
record length sequence. 

Test 9 Description 

Test 9 is the read only test, included in this series 
of test mainly for the purpose of a drive compata bil ity 
test. 


If the RMO selected is "p" or nonstop, the program will 
read tape nonstop to the end of each RLS before changing 
drives. 

If the RMO selected is either 1 or 2, the program will change 
drive selections between each record. 

Test 9 can be operated without restrictions for all data 
pattern selections except random data. (Pattern 7 Even 
or Odd parity) . (Assuming also of course that the parity, 
density and record length sequence parameters agree with 
the information recorded on tape) . 

Random data can be used in conjunction with Test 9 with 
the following instructions: 

a. One of the test sequences that hold pattern selection 
for a complete RLS must have been previously selected and 
run with SW1 = 1. These test sequences include Test 6 and 
Test 8 (valid for multiple drives) and Test 4 for a single 
drive. 
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b. A Test 9 must be selected as the test following when 
typing in test selections. 

c. Test 3 writes to end of tape on all drives selected; 
rewinds and then reads on all drives. 

Test 9 may follow a test 3 selection without the use of SW1 . 
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.TITLE OREI 19 
. 4RS 

/Tl'E) P a T A RELIABILITY TEST (TAPED OF 9 TRACK. 
/st a t at 

/SELECT DRIVES ( TYFF in p R I V F NUMrFPS ? TO ?! 
/NUK-FPS Can he TYPEO IN any SEOUfpcF 
/typing Same n" v uep twice deletes drive 

/ C • p ° I AGE RETURN ENDS SELECTION 
/SELECT TESTS 




/ T S T PaT 

PAR OFN 

RLS WHO R *0 



/ T f S T ;< 

WRITE no 

ONE DRIVE TO EOT REWIND START NEXT DRV 



/TEST -i 

WRITS on 

E C L S OR 51 ? RFCORnS CHANGE DRIVES 



/TEST p 

write 0 N 

e record change DRIVES 



/ T r S T 7 

WRITE TO 

EOT RWQ read 



/TEST 4 

WRITE i 

RLS BACK SPACE RFaD CHANGE DRIVES 



/Tt ST =, 

WRITE 1 

RECORD BACKSPACE READ CHANGE DRIVES 



/TEST a, 

WRITE j 

pls chg prv backspace change REao change 



/TEST 7 

WRITE 1 

RECORD CHANGE backspace CHG PEaD chg 



/ TP S T fi 

IS write; 

1 CHANGE-BACKS P ACE at end or RLS REaDi CHANGE 

IFfi 



• LUC 1 

-*0 


■A 9 A A 

M S P I T S 

f/l 

/DRIVE MASTER select bits 

/ : 1 '/ 1 

•A A A v A 

cpR I 7 E 

A 

/CURRENT DRIVE 

1 C? 

A 0 9 , ? 0 I: 

FOR I ME 

0 


/ •" 1 p 3 

000 /> 00 

patnum 

0 

/PATTERN BEING EXERCISED 

/ : ■ \ 0 4 

A 9 8 * ft (A 

p A E E T 1 

0 

/PARITY SELECTION 

'M F 5 

000/0' 

s R V 0 E N 

0 

/DRIVE AND DENSITY 

'•( ISA, 

000:.. A r > 

rlthol 

0 

/RECORD length CONTROL 

/; IF 7 

00 0'' 0^ 

*006 I T 

0 

/WRITE STOP MODE 

F F 1 1. 0 

A 0 ■/ 0 0, 

RE AD (0 

0 

/REAP STOP MODF 

P "111 

A 9 - ?! 0 0 

PPCSYS 

0 

/INDICATES READ PASS BE MADE 

'll? 

0 0 0 0 * 

E X I T y 0 

0 

/EXIT EOT 1 BLOCK OR 1 RLS 

/ 1 1 3 

AAA 9 A -A 

STOLEN 

0 

/STARTING block length 

F { 114 

A flu 9 00 

C 0 M A N D 

0 

/COMMAND PARITY DEN DRIVE 

* V 1 1 5 

A 9 A 9 A v 

-LE I -JC 

f/i 

/BLOCK LENGTH INCREMENTER 

/ ■ 1. 1 6 

0 0 0- ;• 0 f 

W R F A S S 

0 

/write rfcovfry count 

117 

0 0 ;a •' 0 o 

NUMTST 

0 

/number of tfsts selected 

'/U'l ?0 

000000 

TSTDEX 

0 

/pointer to get test 

F'-lRl 

000 ,; ’ 0 V 

TBLC'iT 

0 

/NUMBER of tests executed 

/: 1?? 

0 0 0 0 9 

F Xf T ST 

0 

/ T F S T BEING FXFCUTFO 

P i 1 ? 3 

AA 9 > A\' 

F X E C N T 

0 

/NUMBER OF TIMES EXECUTED 

. 1 7 a 

000 »■ f/ 

SwTEST 

0 



000-0^ 

FOSE LG 

0 

/CLFARFD AT END OF RLS 

■: '176 

*400 .’?</■ 

S V R E s R 

0 

/TEMP STORAGE 





»aoe 


t 9 


/wqrr ERROR aNQ RFCOPn CONTROL Qfrr - 


4 i ' 1 0 7 

00 7 -’30 

kPfn-K 

/>' 170 

40 0 *0 0 

c E r V 1 

/ ; • 1 :< 1 

/' 0 4 ‘ -/< ‘ 

- E r v ^ 

*■■=. 17? 

3 0 0 ■’ 0 0- 

r r v 3 

1 7 7 

0 0 3 '* 0 0 

P E*'V4 

0v 174 

0 0 0 3 y; 

r t r v - 

y) f 17S 

00 0 "0/ 

prrvA 

00 176 

0 (?(/.< • p! (? 

p E (• V 7 

70177 

0 00 '00 

P E P H 4 S 

f-V.’ 140 

0 0 0-0 

RECORD 

00 14 1 

000 ->-00 

L ASRCR 

00142 

000 '*00 

wrteot 

0 0143 

000000 

N R T l F >N 

0 0 14 4 

000 */0» 

W R R E C R 
/RFAD 

7 0-145 

0 00 00 * 

R E A 0 L N 

7(146 

000-^00 

CO0PLN 

O0 14 7 

000" 00 

PEAD-MX 

0 0157 

000-:'00 

C O M P Nl X 

00151 

3 0 0 • 0 0 

roRECR 

0015? 

000700 

D NDS T A 

01 153 

0 000 00 

cmperr 

00 15 4 

000000 

NRRf AQ 

0 0 15 5 

00.0 ‘00 

PQRRRS 

3 0-15 6 

000 >00 

POEOT 

/ 


n 

0 

9 : 

!? 

0 

0 

0 

0 

0 

0 

frpop and record control registers 
0 
0 
0 
0 
0 
0 
0 
0 
w 
0 


.EJECT 
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/ T C 9 DATA RELIABILITY TEST 




/FIRST SELECT (WIVES 


> 2 0 0 


. L' C ? >0 


/; f 2 v‘ 3 

2?0 4 

9 EL I A B 1 AC SE! T v 1 


i- 1f 2^1 

10523? 

JMS ty^et 


■v 2 (-- 2 

1 4 0 i $ ( ■ 

0/m «S'i|TS 

/CLP OBVS SELECTED 

233 

101^30 

JMS WAITKY 


■'r'2P4 

545773 

SAD (215 

/CAP PET 

-^235 

6 0. 0 ? X a 

JMP .+11 

/ YFS TEST FOP NO DPVS 

€53 236 

505774 

AND ( .3 7 51 


3:'237 

54577 s ; 

SAD (Pnii 

/valid orivf nymb 

0 5 ? 1 0 

600?22 

jmp vi. SUV 

/YES PUT IT IN TABLE 

00211 

760277 

LAS 211 


3£ 21 2 

10594* 

JM? TY1ASC 

/TYPE dues 

.50 213 

763254 

LAs ?54 


3 0 2 1 4 

105246 

JMS TY1ASC 

/COMMA 

30215 

633203 

JMP PEI I A R + 3 

/WAIT NEXT 

v5 ^ ? 1 6 

2331 30 

LAC M S P I T S 


30217 

741 90? 

SNA 

/SELECT ANY DRIVFS 

* "220 

633?33 

JMP PELIAB 


30221 

633241 

jmp SLTSTS 

/DO TESTS 


/ 

.eject 
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PAGE 


2 ' ■ 2 2 2 

7 6 12 5 4 

V L 0 C ; 3 V L 4 •-•: 

PS A 


2? 1 

1 {•' 5 7 4 A 

J M c - 

TV 1 ASC 

/TYPt . 

0s- 2 24 

23 1 • 3 6 

LAf 

r - a i ' 

/ C 0 V 

■I"' 225 

605776 

A J ; 

< 7 


v‘ f ??*> 

2 4 ■' 1 

PAG 

CO - I VE 

/ c A v G - G V A p p 

' 2 2 7 

7 4 •/*, ■' # 1 

r M A 


/ As-- ; • j s ; 

0-230 

0 4' 1 0 P 

n a r 

F 0 I V L 


0; 231 

206777 

L A A 

( 4 W<t. ' 


0 r ‘?3? 

44 ’1 02 

IS? 

F 0' J I VE 

/-IT POSITIONED 

« 2 23 3 

6«0 3 37 

JMP 

. + A 

/NO 

0 2 23 4 

2 4 * • 00 

x or 

MS- I TS 

/Anij OP n E L F T E l^IVE 

2-' 2 35 

0 4 /. 1 0 >1 

rue 

MSP ITS 


0f 236 

600P03 

JMP 

PEI IAB + 3 

/GET ur 

id i' 2 3 7 

744^20 

RCK 


/ M 0 V G — J T 1 ■ V r h 1 

0! 240 

6-0 0 7 32 

JMP 


/TRY AGAIN 


0 5 7 7 0 (/ 

TSTTML = 1770(T 



02 24 1 

200*3* 

pltsts lac 

SEE T X 2 


\M 24 2 

105232 

JMP 

T Y p E T 


02 24 3 

1 4 3 1 1 7 

n / !• 

MU'-TPT 

/CLP SELECTED 

0 ; ' 2 4 4 

226-0V 

LAG 

( Tv'TTRI -1 


‘.Hi 24 5 

0 4 /) 3 1 4 

HAC 

1 6 

/SET f g-R INDIPFCTS 

0 "246 

2^0466 

LAG 

r P 1 F p P 


02247 

105232 

JMP 

T Y p£ T 


’/:“2M-* 

1 4 4 / 1 7 

n? v 

1 7 

/CLP A S S M P L WOPO 

0--251 

101 . ' 3 rJi 

JHP 

WA 1 TKY 

/WAIT E O c KEY 

3 r 2 5 2 

545773 

S A f) 

(215 

/CAR RF T 

0 r 25 3 

600267 

JMP 

TSTYQS +3 

/YES SFE IF ANY SELECTED 

0 V 254 

505774 

AN Ci 

( 3 70 


02 25 5 

545776 

PAN 

( ?40 

/VALID NUMPEP C TC) 7 

0 '"256 

6 0 /) 7 7 3 

JMP 

VI ilTST 

/YES 

0 '25 7 

201 '36 

LAC 

ChARIN 


0t 260 

5 4 6 •: • 0 1 

SAP 

(2 70 


0s 261 

600273 

JHP 

V L n T P T 


0s 262 

546002 

SAfi 

(271 


« 0 2 6 3 

6 0 0 2 7 3 

JMP 

VLCTST 


00 264 

7 6 7-777 

TSTYOS LAW 

277 


00 2 65 

105746 

JMP 

T Y 1 A P C 

/ T YPG CUES 

0i 26 6 

600246 

J M P 

PLTSTS+5 

/TRY AGAIN 

0t 267 

2001 17 

LAC 

MU T $ T 


•3 '270 

741200 

P N ' 


/SELFT T ANY TESTS 

0 ; 271 

60026* 

1 M P 

. - ' 

/NO 

0' 2 72 

60061 7 

J “P 

E X g C U T 

/EXECUTE SPLECTEH 


/ 

. EJECT 



L ? w 


- a r. r 


” 273 

2 !?1 3- 

VL 7T*-.T 

1 *r 

Chi- PI * 

/GET TEST MUMPER Tvu-cr? 

” 27 4 

5 PS'”! 7 


A * ? > 

< 3 7 

/■TASK nir, IT 

?7=5 

7 4 4 ■ ' 3 • 


^ t • ’ 



••) 27/S 

742 '2.- 


QTi : 


/mOVf TO T r s T DOS ! r I 0!v 

2 27/ 

74 2*2 ’ 


P T P 



3C0 

0 4 0 7 1 7 


DAC 

1 7 

/ 3 A V F IT 

2' 3«1 

220471 


LAC 

SP 3TX 

/SPACE 3 

0 302 

175232 


JMS 

T Y °F T 


iH 303 

101” 3 


JMS 

W 4 ! T K Y 

/WAIT F()P PATTERN KE v 

4! 324 

505 774 


A NO 

(.370 


3i'32S 

545775 


SAC. 

( 2 5 0 

/VALir, PATTERN number 

” 3 PA 

741000 


S K F- 


/YES 

14 f ■ 3 4" 7 

600.264 


JMP 

TS T YOS 

/mot valid typf question 

00310 

201*36 


LAC 

CHAPIN 


<■'■'31 1 

505776 


A N«) 

( 7 

/MASK OCTAL 

2'" 31 ? 

3 4 0 7 1 7 


T A !‘j 

1 7 

/COMPILE WITH TEST 

0i 313 

04001 7 


0 A C 

1 7 

/SAVF IT 

«r 314 

200471 


LAC 

5 P A 3 T X 

/SPACE 3 HORF 

”315 

106232 


JMS 

TYOET 


0 7 316 

101 '’I*' 


JMS 

WA ! TKY 

/WAIT FOP PARITY 

07 31 7 

5 0 6 204 


AMP 

(376 


0< 320 

545775 


SAC 

( 250 

/ = 0 OR 1 

07 321 

741.10P 


SKP 


/YES 

0' 322 

600264 


JMP 

tstyrs 

/NOT = 0 OR 1 

0<’323 

201035 


LAC 

C H A R I N 


07 3 2 4 

506705 


AMP 

( 1 


07325 

7 4 4 0 1 0 


PCL 


/POSITION PAP I T y 

37326 

742010 


RTL 


/SELFCT 

07327 

340017 


TAP 

1 7 

/ C 0 M R I M E WITH TEST 

0< 330 

040017 


0 AC 

1 7 

/ANO PATTERN SELECT 

07331 

200471 


LAC 

S P 4 3 T X 


07332 

10523? 


JMP 

TYPET 

/SPACE 3 


/ 


EJECT 



L t 5 


P AGE 


t 


>1 ' 333 


/ ha vf got t rsT pattern 

AND PARITY NOW GET RL c 

10 1 ■3 ' 

JMS waitky 

/WAIT FOR RECORD LENGTH 

* ■ 3 3 4 

5? 6 

A NO (374 

•L 3 3 5 

54577 - 

SAP <2-0 

/MUST PE 0-1-2-3 

? '336 

> 4 1 ” / 0 

CKP 

/OK 

M i 1 3 3 7 

600764 

JMP TSTYOS 

/NOT VALID 

0 ■> 3 4 0 

201-36 

LAC CHAR IN 

/ 0 = M I N I MUM 

?!'341 

506007 

A NO <3 

/MASCK SELECT 

0 f 34 2 

546005 

SAO <1 

/SELECT MAX 

0 " 3 4 3 

206010 

LAC (470 

/YES 

0 0 3 4 4 

546011 

-SAP (2 

/MIN TO MAX 

00 34 5 

20601? 

LAC (1P00 

/YES 

00346 

546007 

SAD (3 

/OR MAX TO MIN 

00347 

206013 

LAC (1400 

/YES 

00350 

340017 

TAD 17 

/COMBINE RLS WITH 

00351 

04001? 

OAC 17 

/TST PAT PAR DEN 

0035? 

200471 

L AC SPA 3 TX 

/SPACES 3 FOR WMO 

00353 

105232 

JMS TYPET 

00 354 

101-030 

JMS WAITKY 

/WAIT EOR KEY 

00355 

506006 

AND (374 

00356 

545775 

SAD (260 

/MUST = 

00357 

741000 

SKP 

/0-1-OR ? 

00360 

600264 

JMP TSTYOS 

/NOT VALID 

00361 

201036 

LAC CHARIN 

00362 

506007 

AND (3 


00363 

546007 

SAD (3 

/3 I S 

00364 

600264 

JMP TSTYOS 

/NOT VALID 

00365 

7 4 4 2 1 0 

RCL 

00366 

7 4 2 0 1 0 

RTL 

/POSITION 

00367 

740010 

RAL 

00370 

340017 

TAD 17 

/COMRINE WITH WMO 

00371 

040017 

DAT 17 

/TST PAT PAR DEN RLS 

0037? 

200471 

LAC S P A 3 T X 

00373 

10523? 

JMS TYPET 

/SPACE 3 MORE 

00374 

101030 

JMS WAITKY 

/WAIT FOR READ MODE 

00375 

506006 

AND (374 

00376 

545775 

SAD (?A0 

/MUST =0 1 OR 2 

00377 

741000 

SKP 

/OK SO FAR 

00400 

600264 

JMP TSTYOS 

/NOT VALID 

0P401 

201036 

LAC CHARIN 

00 4 0? 

506007 

AND (3 


00 403 

546007 

SAP ( 3 

/CANNOT= 

00 4 0 4 

600?64 

JMP TSTYOS 

/ 

.EJECT 

/3 EITHER 




*? 4 6 ' “ 

• 4 "A 

7 7 a i 

V4i' 7 

64 A 11 

• '411 

< 4 A 1 7 

' 4 I 7 

/• <. .1 • i 7 

' 4 17 

1 , ' i . * *•• 

7 ■ 4 14 

6 4k • i a 

/ 4 15 

7 4 1 - / % 

4 16 

6 / 7 4 4 

4 ' 4 1 ? 

7 4 . i 7 

• • ‘ 4 7 * 

r/, * -• • i i 

'■ 421 

4 4 .1 1 17 

’ 4 2 7 

2 - o t* ;» k 
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1 ✓ 6 7 ^ 7 

’ 4 74 

6037 4 A 
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0 0 3 4 7k 

*' 4 76 

064741 
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751 M 7 
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7 0 00 /.^ 

/'■ i 4 36 
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064741 
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3571 71 f 
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5721 37 
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357746 
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3571 32 

0 fV 4 61 
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O'. 46 2 

4 7 0 7 4 
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1* 4 6 4 
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Of 4 66 
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4 66 

7 4 6 6 3 6 

Oi 46 7 

2 0 2 4 61 

/i 4 f' 0 
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SPA3TX 
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000500 

2EP0TX 
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000503 
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JMH 

T NPWMO 

0 ;/ 5 A : 7 

77777^ 


L A w 

- 3 

0 0 5 7 0 

3 4vM 0 0 


TAD 

FXETST 

00 571 

7 4ii v} r- 


SPA 


00570 

6 0 0 f- 0 4 


JMP 

I NPWMO 

00573 

2001 10 


LAC 

REAOMO 

0/574 

3 4 6 ?• 1 4 


tat 

(2 '00 

00575 

04 01 1 O' 


DAT 

REAOMO 

00576 

5460?7 


Sad 

< 6^00 

00 577 

741.000 


SKP 


00600 

600546 


JMP 

TSRUNL 

00 601 

220120 


LAC* 

• TPTOEX 

00 602 

506 O 2 3 


AND 

( 6/00 

00603 

04011 0 


DAD 

REAOMO 



/SEE IE 

WRITE 

mode is 

00604 

750004 

I NCW^O 

LAS 


00605 

7 4 0'/ 


RTR 


00606 

740400 


SNL 


0 0 60 7 

6006^1 


JMP 

INPRLC 

00 610 

0001 1^7 


LAC 

MOHR I T 

0 0 611 

346/ 2 C 


TAP 

( 0 ' 

00 61 2 

040107 


DAE 

M0U8 I T 

0061 3 

5 4 6 v : 0 0 


SAP 

( 6 » 

00 61 4 

741000 


SKP 


00 61 5 

600^46 


JMP 

TSRIJNL 

00616 

2201 2 / 


Lap© 

TSTDEX 

00 617 

506^20 


A Ni 

(60 

0«6?0 

0 4 01 0 7 


DAP 

M 0 , j B I T 



/SEE IE 

RECORD 

LENGTH 

00621 

750' 04 

Inprlc 

LAS 


0 0 62 2 

50 6 26 


AND 

( 4 

0/623 

741000 


SNA 


0 o 6 2 4 

600636 


JMP 

CHGPA T 

0/625 

2001 06 


LAC 

rltrpl 

00 6 26 

3 4 6'’ 1 ('• 


TAD 

(4-0 

0P 627 

0 4 i/5 1 0 f 


0 A C 

RLTRPL 

00 63 0 

5 4 6 -• 1 4 


SA r 

( 2 •’ OP- 

/■< 631 

74 1 : - 


SKP 


3 f ' 6 7 2 

60 05 4'- 


JMP 

TS >UNL 

.H A 7 3 

2 2 4 1 0 •• 


LAP© 

TSTDEX 

634 

0 O 6 ' f 


A NO: 

( 1 O 0 

• 6 7 5 

04 01 ?,f 


f)AP 

PETROL 


/change read mpqF 

/MO 


/WR I If ONLY TEST 
/YES 

/ + 1 READ MODE 

/done random 
/YES 

/RE FXECUTF NEXT RO MODE 
/RESET READ MORE 

/to its o pass value 

CHANGE 


/CHNG WR T mode 

/NO CHECK r e o r o l N T h 

/ + 1 WRITE MODE 

/DONE RANDOM 
/YES 

/RF EXECUTE NEW W MOPE 


/RESET W MODE TO STRT 
TO CHANGE 


/CHANGE RECORD LENGTH 

/no trv pattern selection 

/+ 1 RECORD LENTh CONTROL 

/DONE ALL LENGTHS 
/yes 

/RE rXrcUTE N£W LENGTH 

/RFSrT TO * PA C S 
/RECORD LENGTHS 



/ , 6 y fi 

7 = - > '04 

r r . r 



63 7 

6 0 6 * ■? 7 


A • f 4 ’ 


64 0 

7 4'' 


c ... - 

/ r h 4 ' f . r P a T T r p v 6 

^ 4 1 

/. / ' - 6 • 


j'~ 

/ \ 0 T p v Parity 

/; l fc 4 P 

/ * ' 7 


{ £ f p £ T \! i < M 


6-3. 5 

<45 / « • 


T 4 0 (1 


■U 64 4 

/ 4 ' • < 


? '4 ; " 

/ + 1 F A T T 0 P M 

0; 6 4 5 

5 4 <- p • 


SAT (1 

/HOMF P A f\ ; {' 0 M 

/ • 64 6 

74* •;>,<•-■ 


SKP 

/ Y F 5 

£■. i 6 4/ 

6 0 •' 4 0 


■JmE ts-UN'L 

/Of EXECUTE NEW PATTFpjti 


2? 01 ? f -’ 


L a 0 <* T c T n E X 


-•'• '651. 

507 7 7 A 


AMI* (7 

/ R F S F T TO « FACS 

/ -■■ 6 6- P 

3401 07 


OA0 PaTNUM 

/PATTERN SFIFCTION 


7*1 ,4 • 0 4 

r h 9 P a R 

L A 9 


M 654 

506- ?* 


A NO ( 2 ' 


65 5 

741 7 0-. ‘ 


S 6i A 

/ c H A N G F P A 9 I T Y 

/ . • 6 5 6 

600667 


IMP RPTTST 

/NO 

>H 65 7 

2001 04 


LAC Pa-^HTi 


00 660 

P 4 P. 5 ■/ 


*0R (1 •- 

/rOMPLFMFNT paPITY 

0 0 6 6 1. 

0401 04 


DAP Pi-BTl 


0f 66p 

p P 0 1 p 0 


LAP* T9 TO EX 


; ’ 0 66 3 

50 0"! ■■’ 


A Nf. 1 0 


6 6 4 

540104 


SAT, P A. P PT 1 

/RAC* TO ORIGINAL “A»!TY 

0' 665 

7 4 1 ' 0 ? 


SKP 

/YFS 

06 666 

6 00-4 6 


TS'»UNL 

/RE EXECUTE NEW PARITY 

0 ' 6 6 7 

750 '04 

P P T T 7 T 

L. A 5 


X '6 70 

5 0 A V 3 V 


AMO ( 1 ’ 0 


t* •■ 6 7 1 

7 4 A 7 0 7 


SEA 

/STAY on Tw I S test 

0 1 6 7 2 

6 Cp 3 6 4 « 


JMP 7 S p U M L - 1 

/YES START OVER 

*'■67 1 

4 4 0 1 P 0 


IS? TSTQEX 

/+1 TO GFT NEXT TEST 

0 (■ 6 7 4 

440] £ 1 


IS* T3LCNT 

/ + 1 TAPLE POSITION 

0<'6 75 

200121 


LAC T y t C N T 


iU-676 

540117 


SAP N U M T 9 T 

/nONF ALL SFLECTFO 

0 0 6 7 7 

7 41-000 


SKP 

/YES 

0 6 7 0 0 

600*10 


JM D pxpcht+3 

/PO NEXT TEST 

feJf 701 

750 40 4 


L A c 


0-'70? 

5 0 6 •'31 


AND (2 70 


00703 

7 4 0 P 0 v ■ 


s?« 

/RECYCLE ALL SFLECTEO 


7 4 11 ,s 4 ■•'■ 



/halt JOP done 

v!t' 705 

60061C 


JMP F Xf CUT 

/EESTAPT from FIRST TFST 


/ 


. L JECT 



jpr L * w 


D A G E 


1 ? 


/save drive pec o«o and erropcntrs 


' 7C5 

6007 0-. 

SVCTRS 

JMP . 


2 '707 

1 P « 7 ? <1 


J.MS C T nOF X 

/SET INDICES 

1: 710 

2?0. 1 " 


LAC* 1'. 


: 7i< 

0 A .0 ? 1 ' 


0 A C * li 

/SAVE DRIVE COUNTERS 

/ ''717 

4 4 7 • 1 2 


IS? 12 


c 7i 3 

60 371 • 


JMP . -3 


0 714 

620704 


JMP* SVCTRS 

/EXIT 



/ R F S 5 T 

drive COUNTERS PA 

CK INTO PROGRAM 

i*c 715 

600715 

y V C T 6 S 

JMP . 


0071 6 

100774 


JMS cTPDFX 

/SET INDICFS 

00717 

220011 


LAC* 11 


00720 

060010 


P A C * 1 •* 

/RESTORE DRIVE COUNTS 

00721 

44001? 


IS? 12 


00722 

600717 


JMP .-3 


00723 

628716 


JMP* M V C T R S 

/EXIT 



/sf.t UP 

INDICES POP MOVE 

and Save ctrs 

00724 

608724 

CTRDEX 

JMP . 


00725 

2060.32 


lac (wrchek-i 


00726 

040018 


DAr 10 


00727 

77775'’ 


LAW - 3 M 


00730 

040012 


DAT 12 


00731 

206033 


LAC (ORVADR-1 


00 732 

340181 


TAP CO? I VE 


00733 

040017 


DAT 17 


00734 

220017 


LAC* 17 


00735 

0400H 


DAC 1 1 


00736 

620724 


JMP* CTRDEX 



/ 


.EJECT 



^ L T 


p a r, £ 


Mtf 


i- 7*7 

6 0 0 0 f 

CL^ALL 

JM- 


/■ 1 7 4 8 

1 0< 0 7 5 x 


JMS P S 0 •) P V 

/«ESCT TO FIRST npv 

£'0 74 1 

10361 4 


JMP RF-.INO 

/REWIND IT 

iu 74 2 

1 '4 3 0 7? 


JMS CL-TPL 

/CLEAR RFa!) A NO fctT COOT 

.3074 S 

100706 


JM C S V 7 T P S 

/MS TO nRIVf 

‘M 74 4 

1-00 76 7 


JMS CHS DP V 

/DONE ALL 

8 ( 74 5 

8t 746 

'.^■74 7 

600741 

777777 

84012* 


JMP .-4 

LAP -1 

DAT FOSFLG 

/NO 

0^750 

1 4P207. 

t 

n?M tuflg 


0i 7 51 

620737 

/ 

/rfskt 

jmp# clrall 

DRIVE SELECTION TO 

/EXIT 

lowest drive number 

00 75 2 

6 0 0 7 5 2 

PSP 05V 

JMP . 


80 7*3 

1401 01 


C D R I V F 

/START WITH 0 

00 75 4 

205777 


LAC (480000 

/PIT FOR It 

1-5! 75 5 

041827 


DAC cqpvpt 

/SAVF IT 

rffr 75 6 

580107 


AND MSP ITS 

/MASK WITH DRVS SELECTFQ 

0'/ 75 7 

744208 


s2a :cu 

/DRIVE EXIST 

80 760 

608765 


JMP .+5 

/YES 

0f76i 

0076? 

440101 

201027 


IS? CD C I VE 

LAC CDRVPT 

/ + 1 ORV NUMBER 

0 0 76 3 

744020 


PCP 

/MOVE BIT OVER 1 

80 764 
00*765 

00 7 6 6 

600755 

101 8 0 7 
628752 

JMP PSFDPV+3 /TRY AGAIN 

JMS SETFUN 

JMP# RSFDRV 

/ 

/SELECT NCXT DRIVE IN SEQUENCE 

/+! EXIT ADDRESS IF LAST DRIVE TESTED 

80767 

680767 

CHGDPV 

JMP , 


8 ('770 

201827 


LAC CDPVRT 

/GET MASK BIT 

00 771 

744020 


PCR 

/MOVE OVER 1 

00 772 

440101 


IS? CDRIVE 

/♦I DRIVE NUMBFR 

00 773 

506034 


AND (776008 

/MASK OF 8 BITS 

0 O 7 74 

740208 


SZA 

/END OF 8 DRIVES 

00775 

601001 


JMP .+4 

/NO SEE IE DRV EXISTS 

00776 

10075? 


JMS RSPQRV 

/RESET TO FIRST SELECTED 

00 7 77 

448767 


IS? chgdrv 

/♦I EXIT END OF DRIVES 

0 - 1 00 0 

620767 


JMP# CHGDRV 

/EXIT 

0 1001 

841027 


DAC CD p VRT 

/SAVE CUR BIT 

’0i 002 

508100 


AND MS«ITS 

/MASK DRIVES SELFCTEO 

0i 00 3 

745200 


SNA ;CLL 

/DRIVE EXIST 

031 00 4 

01005 

600770 

101^07 


JMP CHGDPV+1 

JMS SETFUN 

/NO SEE IE NEXT EXISTS 

01 00 6 

620767 

/ 

JMP# CHGDRV 

.EJECT 

/EXIT WITHOUT SKIP 




L T9 


PAGE 14 


ai 007 

601? 07 

setfum 

JMP . 



01010 

2001 05 


lac orvoen 



01 01 1 

506-21 


A NO (300 

/MASK 

DENSITY PITS 

01 01? 

0 4 0 1 j* 


0 AC DRVOEN 



01 013 

2 0 0 1. 0 1 


LAC COPIVE 



01 014 

7 4 4 0pp. 


POP 

/movf 

ORIVE NUMBER TO 

01 015 

7 4 2 ? 2 ? 


RTR 



01 016 

740020 


RAP 



01017 

340105 


TAD DRVOEN 

/drive * OENS I T V 

01 020 

04010K 


DAC DRVDEN 



01021 

200104 


LAC PAR8T1 



01 022 

740200 


S2A 



01023 

206035 


LAC (40000 



01 024 

340105 


tad drvoen 

/PUT 

IN PARITY sit 

01 025 

040H4 


DAC C 0 M A N D 



01 026 

621007 


JMP* SFTFUN 



01 027 

000000 

CDRV9T 

0 





/wait for 

K8D FLAG READ 

character 


0i 030 

601030 

waitky 

JMP . 



01 031 

700301 


KSF 



01 032 

601031 


JMP .-1 



01 033 

700312 


KRP 



01 034 

041036 


DAC CHARIN 



01 035 

621030 


JMP* WAITKY 



01 036 

000000 

CHARI N 

/ 

0 




TO 2 


.EJECT 




00 7 4 0.- 

f H J f H Z 

7 A 09 


A 0 ^ * 4 • 

5 R I h 0 R = 

4 f 


0 0 7 4 4 - 

r-Ri T < P = 

\ .< w ‘ 0 T a p + D *7 [ Nr P 


A 0 75 0’ 

n R 2 T -* k = 

. } 4 1 T A >- + HR i MTR 


A 0 7 6 4 

OR0 T ah = 

■j & 2 T A P + H H y £* R 


m 7*00 

np?4TAH = 

}P.3T A L +n rt ? vjpp 


3 p 7 64 -■ 

DR6T ARr 

i.)P4 TAP + HP 1 NCR 


A 9 7 7 0 ' 

f R6T ARr 

l’~6T ap + hpimcw 


997 7 A- 

0 R 7 Ti H r 

0 ‘7 6 T a p + n p | \« r R 

037 

A97 A (a '• 

n R V A • ) R 

n r 0 tar 

040 

997 A a v 


DR ! TAR 

0 10 4 1 

99; 76 0 0 


D R ? T A 6 

010 4 2 

091 7 5 4 : 


f) R 0 T A R 

0-043 

007 60'* 


n R 4 T A p 

110 4 4 

007 6 4 9 


DR5T AH 

0104 5 

007709 


D K 6 T AR 

0 10 4/, 

0077 40 


DR7TAR 



/TFST fop all ORIVES TO have 

01047 

60> \ ’47 

A L L E 0 T 

JMP . 

01050 

2001 11 


lac reosys 

-01051 

74 0 20 •' 


S/A 

0i 052 

6 0 1 0 6 a 


JhP TRDEOT 

0105 3 

10075? 


J MC rsedrv 

0 1 0 5 4 

10071^ 


JMS HvCtPS 

01 055 

2001 A? 


LAC WRTECT 

01 056 

74120? 


SNA 

0i 057 

601?75 


JMP ALLEOS 

01060 

109767 


JMS CH50RV 

01 061 

6 01 05 A 


JMP ALLE0Tf5 

0i 06? 

441047 


IS? ALLEOT 

01063 

6 ? 1 0 4 7 


JMP » ALLEOT 

01 064 

1 00 7 5? 

TRDEOT 

JMS RSFQRV 

010 6 5 

100715 


JMS MVCTRS 

01066 

200156 


LAC RDEOT /GET READ 

01 067 

7 4 i 2 0 0 


SNA 

01070 

601075 


JMP ALLEOS 

010 71 

100767 


JMS CHGORV 

010 7 2 

601065 


JMP TRDEOTi-1 

010 7 3 

4 4 i 0 4 7 


IS? ALLEOT 

01074 

621047 


Jmp* ALLEOT 

0i 075 

750004 

4 L L E 0 S 

IAS 

0i 076 

742010 


RTL 

0-077 

740400 


SNL 

01 100 

621047 


J M P e ALLEOT 

01101 

2001 25 


LAC FO c El G 

01 102 

740200 


S/A 

01 103 

621047 


JMP» ALLEOT 

0110 4 

441047 


IS? ALLEOT 

01 105 

102004 


JMS CTPUMP 

01106 

621047 


JMPo ALLEOT 


REACHFD EOT 


/READ pass SELECTED 
/YES USE RDEOT 


/TEST EXIT EOS SELECTED 


/START FIRST DRV 
/GET CTRS 
TO EOT 

/THIS DRV AT EOT 
/NO TEST EOS SW 
/TESTED ALL FOR EOT 
/NO 

/ALL AT EOT SKP FXIT 
/GET SWS 

/EXIT ENn OF SFQUENCE 
/NO GO TO EOT 


/WRITTEN TO EOS 
/NO FXIT 

/SKIP TO END OF TEST 
/PRINT ERR CTRS 
/FXIT 


/ 


• EOT 





/D»FL 

- TAPP 3 



/ Tf S T BUN 

LOOPS 



/TESTS 0 

TO 7 




/ T A PL E OF 

JMS 

TO TEST 

10 7 

1011 21 

T BL T S T 

JMS 

TEST? 

.* '110 

1011 3 C 


JMS 

TEST 1 

.*' 1 1 1 

1011.6" 


JMS 

TEST? 

<111? 

1 0 1 ? 0 7 - 


JMS 

TEST3 

01 113 

101 ?? C 


JMS 

TEST4 

01114 

101-5^ 


JMS 

TEST = 

0 1 1 1 =5 

101301 


JMS 

TEST6 

01116 

10134 < 


JMS 

TEST7 

01117 

1 0 1 4 0 S 


JMS 

TEST 10 

01 1?0 

10207^ 


JMS 

TESTll 



/ 

.EJECT 





/Tf-ST '• WRfTr 

TO EOT 




/RFMND GO TO 

N E y T i)P I VF 


?-1 15>1 

6*11 ?! 

T E c T JMP 



122 

1 4 0 1 1 ? 

b£y 

rx ? T M o 

/SET EXIT END OE TiPr 

H 1 1 ? 3 

14011! 

n zf ’■* 

RF''SVS 

/NO RE 40 P ASS 

/'I 124 

103737 

JHS 

CL* AL L 

/CLE AR ERR CTRS REWIND 

0i 1 25 

13337? 

JMS 

CL*TPL 


01 126 

10372* 

JMS 

GFMPaT 

/generate data pattern 

01 127 

1331 33 

JMS 

WR ! T I T 

/WR ! TE 

0113 0 

003*0* 

0 



01 131 

103614 

JHS 

PE « IK'D 

/REWIND 

0113 2 

100767 

JHS 

CHGORV 

/ANYMORE DRIVES 

«i 133 

6*11 2 K - 

JHP 

TEST0. + 4 

/YES 

0i 134 

6?1 1 21 

JHP* TEST0 

/ X I T TEST 0 



/TFST 1 WRITE 

1 record LENGTH 

sequence 



/CHANGE DRIVES 


01 135 

6011 35 

T E S T 1 JHP 

, 


0113 6 

206*36 

LAC 

( 20000 


01 137 

0 4 0 1 i ? 

0 AC 

FX ITMO 

/EXIT WRITE ROUTINE END OE RLS 

0114 0 

1401H 

02M 

R EC SYS 

/CLEAR ERROR CTRS REWIND 

01141 

100737 

JHS 

cl pall 

/CLEAR ERROR CTRS REWIND 

01 142 

10075? 

JMS 

RSTDRV 


01 143 

1 00 7 1 K 

JMS 

MVCTPS 

/GFT DRIVE COUNTERS 

01 144 

2001 4? 

LAC 

WRTEOT 

/this ONE AT EOT 

01 145 

740?00 

S2A 



0114 6 

601153 

JHP 

. +5 

/DRIVE AT EOT SKIP WRITE 

0114 7 

10372* 

JMS 

GENPAT 

/GENERATE NEW PATTERN 

01 150 

1031*3 

JMS 

WRI TIT 

/START WRITE 

01 151 

003000 

0 



01 152 

100736 

JMS 

SVCTRS 

/SAVE CTRS THIS DRIVE 

0i 153 

100767 

JMS 

CHGDPV 

/DONE 1 RLS ALL DRIVES 

01 154 

601143 

JHP 

TESTl+6 

/NO DO NEXT DRIVE 

01 155 

101047 

JMS 

ALLEOT 


01 156 

6011 4? 

JHP 

TEST 1+5 


01157 

6?1 1 3^ 

JHP* 

TEST1 



/ 


.EJECT 



RE L I 0 


page : 1=1 


/TEST 2 WRITE 1 RECORD SEQUENCE 
/CHG DRIVES GO TO EOT 


011*0 

601160 

TEST2 JMP 



0 U*1 

20603* 

LAC 

(40000 


0i 1*2 

040112 

nun 

EX I TMO 

/SET EXIT EVERY RECORD 

01 163 

140111 

02M 

RECSYS 

/NO READ PASS TO BE MADE 

0i 164 

100737 

JMS 

CLRALL 

/CLEAR DRV CTRS REWIND 

01 1*5 

100752 

JMS 

RSEDRV 


011*6 

10071* 

JMS 

MVCTRS 

/GET CTRS THIS drive 

01 1*7 

200142 

LAC 

WRTEOT 


01170 

740200 

S2A 


/AT FOT 

01 171 

601176 

JMP 

. +5 

/YES SKIP WRITE 

01 172 

103720 

JMS 

GENPaT 

/GENERATE PATTERN 

01 173 

103103 

JMS 

WR I T I T 

/WRITE 1 RECORD 

01 174 

000000 

0 



01175 

10070* 

JMS 

SVCTRS 

/SAVE counters 

01 176 

100767 

JMS 

CHGOPV 

/DONE ALL DRIVE 

01177 

601166 

JMP 

TEST 2 + 6 

/NO 

01 200 

101047 

JMS 

ALLEOT 

/TEST FOR ALL AT EOT 

01 201 

601165 

JMP 

TES T? + 5 

/NOT YET DO MORE WRITES 

01 202 

621160 

JMP* TTST2 

/EXIT TEST 2 



/TFST 3 WRITE 

TO EOT REWIND 




/CHNG DRIVES READ 


01 203 

601203 

TEST7 JMP 

, 


01204 

140112 

OZM 

EX I TMO 

/EXIT AT EOT 

01 205 

206037 

LAC 

(10000 


01 206 

040111 

DAC 

RECSYS 

/SET READ PASS SELECTED 

01 207 

100737 

JMS 

CLRALL 

/CLEAR ALL AND REWIND 

01 210 

103720 

JMS 

GENPAT 

/GENERATE PATTERN 

01 211 

100715 

JMS 

MVCTRS 

/GET CTRS THIS DRIVE 

01 212 

1031 03 

JMS 

WR I T I T 

/WRITE PASS TO EOT 

01 213 

000000 

0 



01214 

103614 

JMS 

REWIND 

/REWIND THE DRIVE 

01215 

100767 

JMS 

CHGDRV 

/CHANGE 

01 216 

601211 

JMP 

TEST3+6 

/NOT DONE ALL DO NEXT WRITE 

01217 

100715 

JMS 

MVCTRS 


01220 

140140 

DZM 

RECORD 


01 221 

104407 

JMS 

READ IT 

/MAKE READ PASS 

01 222 

100767 

JMS 

CHGDRV 

/DONE ALL DRIVES 

01 223 

601217 

JMP 

. -4 

/NO FXIT 

0i 224 

621207 

JMP- 

/ 

» TFST3 




.EJECT 




i ' a r . r 


I w 




/If- ST 

4 wan- 

1 3 LS 




/ B 4 C ' 

S ° a n E ar 

4 0 r . H C HP I V f S 


■j' p p 5 

6 a i 2 ? * 

T r 5 T 4 

JMP 



/*» 226 

2 6 3 '~ 


l at 

( 2 4 000 


0 •* 2 2 7 

0 4 011 '7 


hat 

r X I T MO 

/SET EXIT F NO nE BlS 

0i 233 

206 0 37 


LAC 

( 1 i00L 


3i 231 

040U1 


DAT 

PPrsYS 

/set read pass write pecvh 

23 2 

1 00737 


JM* 

CL- ALL 

/CLF A R ALL C EPS RfWIMO 

233 

100752 


jms 

PSrQPV 


31 2 3 4 

100715 


JMS 

M V r T R S 

/GET CTRS This drive 

0 i ? 3 5 

1 0 3 7 2 0 


JM$ 

GE’^PaT 

/generate pattern 

236 

200142 


LAC 

WRTEOT 


01 237 

740200 


S^A 


/THIS DRIVE AT EOT 

3 1 2 4 0 

601.24 6 


JMP 

• + 6 

/YES 

Mi 2*1 

1031 03 


JMS 

W R I T 1 T 

/MAKE WRITE PASS 

24 2 

000 !r 00- 


0 



0124 3 

105200 


JMS 

CORK WO 

/BACK UP 

312*4 

104407 


JMS 

peaoit 

/MAKE PEAO PASS 

01 245 

100706 


JMS 

SVrTRS 


01 2 4 6 

100767 


JMS 

CHGORV 

/change drives 

012*7 

60123* 


JMP 

T E S T 4 + 7 

/NOT DONE ALL DRIVES 

0i 2 50 

1 0 1 " 4 7 


JMS 

ALLEOT 

/TEST fob EOT 

01 251 

601.2 3.3 


JMP 

T£ S T4 + 6 

/NOT ALL THERE YET , 

01 252 

621225 


JMP 

* TEST 4 

/EXIT 



/TEST 

5 WRITE 

1 RECORD BACKSPACE RE AO 



/THEN 

CHANGE DRIVES 


0125 3 

601253 

TESTS 

JMP 

. 


0 125 4 

2060 3*' 


LAC 

( 40000 


0i 255 

0 4 0 1 1 2 


0 A C 

EXITMO 

/SET EXIT EVERY RECORD 

0i 256 

206037 


LAC 

(10000 


01 2*7 

0 4 0U1 


DAC 

PEC SYS 

/WRITE PASS MAKE READ RECVR 

01 260 

100737 


JMS 

CLPAl L 

/CLEAR CTRS REWIND 

01 261 

100752 


JMS 

PSPQRV 


0i 262 

103720 


JMS 

GEN'PAT 

/GENERATE PATTERN 

0i 263 

10071* 


JMS 

M VT TPS 

/move this orvs ctrs 

01 264 

2001 42 


LAC 

WRTEOT 


0126 5 

740200 


S £ A 


/THIS DRIVE AT EOT 

0i 266 

601274 


JMP 

t + 5 

/YES SKIP WRITE 

0i 267 

103103 


JMS 

WK ! T ! T 

/MAKE WRITE 1 RECORD 

01 270 

00000" 


0 



01 271 

10520" 


JMS 

G 0 p K W D 

/RACK SPACE 

01 272 

104*0 7 


JMS 

RE 4Q I T 

/READ 

01 273 

100705 


JMS 

SVCTRS 


01274 

100767 


JMS 

CHGORV 

/DONE ALL DRIVES 

0i 275 

601262 


JMP 

TEST5+7 

/NO 

0i 2 7 6 

101047 


JMS 

ALLEOT 

/TEST EOP ALL AT EOT 

■01277 

601261 


JMP 

TEST5+6 

/NOT THERE 

01 300 

621253 


JMP 

TEST 5 

/EXIT 5 



PAGE 


! Q 


20 


/TEST A WRITE 1 RECORD LENGTH SEQUENCE 
/CHANGE DRIVES REPEAT 
/BACKSPACE CHANGE DRIVES REPEAT 
/READ CHNG D°VS REPEAT 


01 301 

601301 

TEST 6 

JMP 



0130 2 

206/37 


LAC 

< 1/000 


?.i 30 3 

040111 


DAC 

RE-'SVS 

/SET READ SELECTED 

0 1304 

206/34 


LAC 

( 2/000 


0i 3 0 5 

2401 12 


DAC 

EX I TMQ 

/EXIT END OF RLS 

0130 6 

100737 


JMS 

CL°ALL 

/CLEAR CTRS REWIND 

01 307 

100752 


JMS 

RSFQPV 


01 31 0 

103720 


JMS 

GENPaT 

/GENERATE PaTTFRN 

01 311 

100715 


JMS 

MVcTRS 

/get ctrs this drive 

01312 

200142 


LAC 

WRTEOT 


01313 

740200 


S2a 


/at EOT 

01 314 

601321 


JMP 

. + 5 

/YES SKIP WRITE 

01 315 

1031 03 


JMS 

WR ITI T 


01 316 

000000 


0 



01 31 7 

100706 


JMS 

SVcTRS 

/SAVE CTRS 

01 320 

100767 


JMS 

chgqrvs 

/WRITTEN 0 I V ALL DRVS 

01 321 

601311 


JMP 

.-10 /NO 


01 322 

100714 


JMS 

MVCTRS 

/GET CTRS AGAIN (NEW DRV) 

01 323 

200156 


LAC 

RDEOT 


01 324 

741200 


SNA 


/READ TO EOT IS SKP 

01 325 

105200 


JMS 

GORKwD 

/RACK SPACE 

01 326 

100706 


JMS 

SVCTRS 

/ S A VF POSITION 

01 327 

100767 


JMS 

CHGQRV 

/CHANGE DRVS 

01 330 

601322 


JMP 

. - 4 

/NOT ALL BACKSPACED 

01 331 

100714 


JMS 

MVCTRS 

/NOT ALL 8ACKSPACED 

01 332 

2001 56 


LAC 

RDEOT 


01 333 

741200 


SNA 


/READ TO EOT 

01 334 

104407 


JMS 

READIT 

/NO MAKE read pass 

01 335 

100706 


JMS 

SVCTRS 

/SV CTRS AGAIN 

01 336 

100767 


JMS 

CHGDPV 

/DONE ALL 

01 337 

601331 


JMP 

. -6 

/NO MAKE read pass 

01 340 

101047 


JMS 

ALLEOT 

/ALL DRVS AT EOT 

01341 

601307 


JMP 

TEST6+6 

/NO 

01 342 

621301 


JMPi 

* TEST6 

/EXIT 6 



/ 

.EJECT 




/TFST 7 WRITE 1 17 E C. 0 P 0 CHG ORVS 
/■<:.(■• s r C M G 0-7VS 




/RE Af) CHG H R V S 


•. 1134-5 

A ?• i 3 4 3 

TEST 7 JMP 



0 1 .5 4 4 

?£6?3 C - 

LAC 

( 4 0-000 


HI 345 

0401 1 ? 

rue 

EX 1 THO 

/SET EXIT EVERY PECORl 

i) 1 3 4 6 

206 " 3 "? 

1 . AC 

( 1 4000 


41347 

0401 11 

DAT 

RECSYS 

/READ PASS SELECTED 

D 1350 

100737 

JMS 

C L 0 A L L 

/CLR CTRS REWIND 

0 1 351 

10076? 

JMP 

RSEDRV 


0i 35? 

103727 

JMP 

GE MP A T 

/GENFR aTE PaTTFRN 

0i 35 3 

10071^ 

JMS 

MVcTRS 

/get DRIVE counters 

01 354 

20014? 

LAC 

wrteot 


01 355 

740?0{* 

S2a 


/this DRIVF at EOT 

01 356 

60136? 

JMP 

. + 4 

/YES skip writf 

01 357 

1(431(41 

JMS 

WRIT IT 

/NOT at EOT YET write 

01 360 

000(40(4 

0 



01 361 

100706 

JMS 

PVOTRS 

/SAVE CTRS This drive 

01 362 

100767 

JMS 

CHGDRV 

/done all 

01363 

601353 

JMP 

TEST7+10 

/DNO DO NEXT 

01364 

10071'- 

JMS 

MVCTRS 

/GET CTRS NExT DRIVE 

01 365 

200156 

LAC 

RD r OT 


0136 6 

74120? 

SMA 


/READ TO EOT 

01 367 

10520" 

JMS 

GORKWD 

/NO RACKSPACE 

01370 

100706 

JMP 

SVCTPS 

/SAVE POSITION 

01 371 

100767 

JMS 

CHGORV 

/DONE ALL 

01 37? 

601364 

JMP 

. -6 

/NO 

01 373 

100715 

JMS 

MVCTRS 

/GET CTRS NEXT DRIVE 

01 374 

200156 

LAC 

RDPOT 


01 375 

741200 

SNA 


/AT EOT 

01 376 

104407 

JMS 

REAOIT 

/NO READ IT 

01 377 

100706 

JMS 

SVCTPS 

/SAVE CTRS 

01 400 

100767 

JMS 

CHGDRV 

/DONE READ ON ALL 

01 401 

601373 

JMP 

. -6 

/NO 

01 402 

101047 

JMS 

AILEOT 

/TEST ALL DRVS AT EOT 

01 403 

601351 

JMP 

TE S T 7 + 6 

/NOT ALL THERE YET 

01 404 

621343 

JMPo 

TP S T 7 

/EXIT TEST 7 


/ 


.EJECT 



St L T 9 


PACE 


01 405 
01 406 
01 407 

01410 

01411 
01 412 
01 413 
01 414 
01415 
01 416 
01417 
01 420 
01 421 
01 422 
01423 
01 424 
01 425 
0i 426 
01 427 
01 430 
01 431 
01 432 
01 433 
01 434 
01435 
01 436 
01 437 
01 440 
014 41 

01442 

01443 
01 444 
0M45 
01446 
014 4 7 
01 450 
0i 451 
01 452 
0i 453 
014 5 4 
01 455 
014 5 6 
014 5 7 
01 4 6 0 
01461 
014 6 2 
01463 
0-464 
0 14 65 


/TC5'> DATA PEL I AR I L I TY TEST 
/WRITE 1 RECORD CHG DRVS 
/REPEAT UNTIL END RLE 
/hacks d aCE chg 

/read 1 RECORD CHANGE RPT TO END RLS 


60140* 

TEST1 

JMP 


200127 


LAC 

moob i t 

740200 


S2A 


20603*> 


LAC 

( 40000 

741200 


SNA 


206036 


LAC 

(2000)0 

040112 


OAC 

ex ! TMO 

206037 


lac 

(10000 

0401H 


OaC 

recsys 

100737 


JMS 

CLRaLL 

103720 

TS10L2 

JMS 

GENPaT 

100752 


JMS 

rsfopv 

100715 


JMS 

MVCTPS 

200140 


LAC 

RECORD 

040144 


OAC 

WRPECR 

100706 


JMS 

svctrs 

100767 


JMS 

CHGORV 

601421 


JMP 

, - 5 

777777 


LAW 

-1 

04012*5 


OAC 

eosflg 

100752 

TS1 OL 1 

JMS 

PSPDRV 

100715 


JMS 

MVOTRS 

200142 


LAT 

WRTEOT 

740200 


S 2 A 


601445 


JMP 

.+10 

200144 


LAC 

WRPECR 

0401 26 


OAC 

SVPECR 

103103 


JMS 

WRJTIT 

000000 


0 


200126 


LAC 

SVPECR 

040144 


OAC 

wrrecr 

100706 


JMS 

S VC TP S 

1 0 0 7 6 7 


JMS 

CHGORV 

601432 


JMP 

TSl 0L1+1 

20012*5 


LAC 

EOSFLG 

741207 


SNA 


601467 


JMP 

. +7 

10071* 


JMS 

MVCTPS 

20014? 


LAC 

WRTEOT 

741200 


SNA 


601431 


JMP 

TSl 0L 1 

10076 7 


JMS 

CHGORV 

60145? 


JMP 

. -5 

10075? 


JMS 

RSrQPV 

10071*= 


JMS 

M VC TP S 

2 0 0 1 5 6 


LAC 

RQF0T 

7 4 1 ? 0 P 


SNA 


10520? 


JMS 

GORKWD 

1 0 Z 7 0 f 


JMS 

SVCTRS 


/GET WRITE MODE 
/NONSTOP 

/NO START STOPEXIT EVERY 

/start STOP 
/NONSTOP XIT RLS 

/set EXIT evry record 
/make read recovery 

/CLR CTRS RER1N0 


/RESET ALL QRVS 

/no save lasrcr nxt drv 


/SET TO 0 AT End RLS 


/DRV WRITTEN TO EOT 
/YES DON’T WRITE ANY MORE 

/SAVE START OE RLS 
/WRITE 1 RECORD 

/RESTORE START OE RLS 

/SAVE CTRS THIS ORV 
/AMY DRVS LEFT 
/YES WRITE ON IT 

/DRIVES AT END RLS 
/YES BACK UP 

/MOVE CTRS 

/GFT WRITTEN EOT ELG 
/DRIVE AT EOT 
/NO AT LEAST 1 ISN’T 

/IF SKPS ALL DRVS AT EOT 
/SEE IF NXT DRV AT EOT 

/START FIRST ORV AGAIN 
/GET CTRS 

/ORV READ TO EOT 

/NO RACK SPACE 



« r L T 9 PAGE ? } 


/J * A (y 6 1 u. -Jj 7 ,A / 

014*7 671461 


JMS CH r OnV /SACKED UP ALL G«VS 

JMP .-6 /NO 00 TWIS ONE 

.EJECT 


i 

f 



ffU9 


PARE 24 


01 470 

10075? 


JMS RSFDRV 

01 471 

100715 

T1PRHP 

JMS mvtrs 

01 472 

2P015* 


LAC RDFOT 

01473 

740200 


SEA 

01 474 

6 0 1 ^ 1 7 


JMP Tl/RND 

01 475 

200141 


LAC LASRCR 

01 476 

54/3140 


SAD RECORD 

01477 

601517 


JMP TiPRND 

01 500 

0401 2* 


OAC SVRECR 

01 501 

20011« 


LAC B£ A OMO 

01 502 

741200 


SNA 

01 503 

601507 


JMP .+4 

01504 

200140 


LAC RECORD 

01505 

040141 


DAC LASRCR 

01 506 

440141 


IS? LASRCR 

01 507 

104407 


JMS READIT 

01510 

200126 


LAC SVRECR 

01 511 

040141 


OAC LASRCR 

01512 

100706 


JMS SVCTRS 

01513 

100767 

TlORND 

JMS CHGOPV 

01 514 

601471 


JMP T 10RDP 

01 515 

100715 


JMS MVCTRS 

01 516 

200141 


LAC LASRCR 

01 517 

540140 


SAD RECORD 

01 520 

741000 


SKP 

01 521 

601470 


JMP TlORDP-1 

01 522 

100767 


JMS CHGORV 

01 523 

601515 


JMP , - 6 

01 524 

101047 


JMS ALLEOT 

01 525 

601417 


JMP TS10L2 

01 526 

621405 


JMP» TESTlf 


/ 


/RESET TO FIRST DRIVE 
/GET DRV CTRS 

/READ TO EOT ON THIS ONE 

/YFS BYPASS RE A 0 

/READ to LAST record WRITTEN 
/YES 

/SAVE LAST RECORD 

/GET READ 

/NONSTOP 

/YES 

/SET EOS TO 
/LAST READ +1 
/READ 1 RECORD 

/RESTORE LAST WRITTEN 
/SAVE COUNTER 
/DONE 1 ON ALL DRVS 
/NO DO 1 MORE ON NEXT 
/GET CTRS CURREN DRV 

/READ TO EOS THIS DRV 

/NOT AT EOS READ AGAIN 


/TEST FOR ALL READ TO EOT 
/AT LEAST i ISN'T YET 
/ALL DRVS AT EOT EXIT TEST 


.EJECT 



^ f> A f- 


/rjiiKP f jPQR COUNTERS ON *LL ORIV'FS 

/FIRST SAVE r 0 U \- T F c S CURRENTLY f N LOCATIONS 

0 7 000 


• L /C V ’,■!/ 

■} 7 0 0 0 

1 0 0 / 

E R R H M P J M S S V r T R S 

0 7001 

107704 

JmS " T p 

3 7007 

7 4 0 ■ 4 < 

HLT 

0 -'00 3 

6 0 7 f* 7 

JMP . -1 

'.-• 7 0 04 

6 0 7 / 0 4 

rinD'-ip jmc . 

0 7 005 

1 00 7 5 2 

J«S OSFORV 

0 7006 

1 0 0 7 1 & 

JMS MVCTPS 

07 007 

20 7 7 0 -' 

LAC T 1 1 FLG 

0 7 01 0 

7 4 17 0 0 

SNA 

0 7 011 

602 0 2 7 

JMP CD M ENO-S 

07 01 7 

207037 

LAC WRFTEX 

0701 3 

105737 

JMS TYPET 

07014 

707054 

LAC EHORTX 

07015 

105737 

JMS TYPET 

07 016 

I 03451 

JMS WRT 0 MP 

0701 7 

2 0 0 1 1. 1 

LAC RECSYS 

0 7 0 70 

74i 204 

SNA 

07071 

6 0 7 7 7 

JMP C D M E N D 

07 077 

207043 

LAC RiJFTEX 

07 073 

105737 

JMS T Y D £ T 

07074 

207054 

LAC EHRRTX 

07075 

105737 

JMS TYPET 

07 07 6 

105^14 

JMS REAUMP 

0 7 07 7 

100767 

COMEND JMS CHCORV 

07030 

602006 

JMP CTodmp+2 

07031. 

622004 

JMP* CTRDMP 
.EJECT 



H^L I 9 


9 A G E 2 6 


0705? 

0 0 7 3 T 

09073 

0.64 74 1 

0 9 03 4 

270756 

35 035 

512737 

09036 

4 4 250"' 

0.9037 

472531. 

09040 

55 010 V 

07041 

064757 

09042 

7 0 0 ;> g 

09043 

002744 

02044 

064741 

07045 

220744 

07046 

426037 

07047 

47021-7 

07050 

52633? 

07051 

02003? 

07052 

053760 

07053 

000000 

07054 

00205* 

07055 

422457 

07056 

620240 

07057 

406504 

07060 

05020? 

07061 

511010 

07062 

442634 

07063 

202331 

07064 

74221? 

07065 

202450 

07066 

541644 

07067 

422464 

07070 

04671? 

07071 

472172 

07072 

444000 

07073 

064244 

07074 

07740P 


WRFTt'X .+1 

.ASCII 


<15X1?X12> ' WRITE OUMP 


RDETEX .+1 

.ASCII <15X1?X1?> ' p E Aq DUMP ' <1 5 X 1 2 X 1 7 7 > 


F HDRTX .+1 

■ASCII 'DPV PAT PAR OFN mode PECRDS LENGTH' 


.ASCI! <15X12X40X177> 


/ 


■ EJECT 


rflfctign invalid 


/Tf ST 11 RF A 0 OM.Y PANOO* 
/EXCEPT IN CERTAIN CASES 


0-0 75 

62?':7~ 

/ 

TE c Tl 1 

JMP 





070 76 

1 0 3 7 37 


J«S 

CLRALL 



/Cl R CTftS PE'VINO 

V 0 7 7 

2 0 A 7 7 K 


LAC 

( 42000 




071 m 

0401 Ip 


DAC 

EX | TMG 



/set WHITE EXIT EVERY RECORD 

07101 

linn 


L A *5 

-1 




0^10? 

042?$” 


DAT 

T 1 1 r L G 



/SET TEST u WRITE EXIT 

0?103 

1031 03 


JMS 

WR? T I T 



/SET UP RECORD LENGTHS 

0710 4 

30.00 0:'- 


0 





0? 105 

200175 


LAC 

EOSFLG 



/get eno OF rls flag 

07106 

74070« 


sha 


/INCREMENT TO END 

0210 7 

lf'332-3 


JMS 

tesiwc 



/NO RETURN IS .-2 

071 1 0 

2001 40 


LAC 

RECORD 




0?111 

0421 77 


DAC 

T11.INC 



/save sequence length 



/IF RANDOM pa' 

r O Q MOT REGEM 




00112 

140140 


D2m 

RECORO 




00113 

2001 03 


LAC 

PATNUM 




00114 

54577* 


SAD 

( 7 

/- 7 

IS 

RANDOM 

00115 

741000 


SKP 





00116 

103727. 


JMS 

GENPAT 




00117 

777777 

Til L P 1 

LAW 

-1 




00100 

0401 25 


DAC 

EOSFLG 



/SET START of SEQUENCE 

0?1?1 

100752 


JMS 

RSFOPV 




00102 

100715 


JMS 

MVCTRS 



/GET CTRS THIS DRV 

00103 

2001 56 


LAC 

RDEOT 




07174 

740200 


S 2 A 


/THIS 

DRV AT EOT 

00125 

602132 


JMP 

. +5 

/YES 



02126 

200140 


LAC 

RECORD 



/CURRENT RECORD 

00127 

342177 


TAD 

Til INC 



/♦ SEQUENCE LENGTH 

07130 

040141 


DAC 

LASRCR 



/FOR READ EXIT 

00131 

100706 


JMS 

svctrs 



/SAVE CTRS THIS DRIVE 

02132 

1 00 76 7 


JMS 

CHGDRV 



/DONE ALL 

00133 

602122 


JMP 

Til LPl+3 

/NO SET 

UP NEXT DRIVE 

00134 

100752 


JMS 

PSFDRV 




00135 

100715 

TllRPl 

JMS 

MVCTRS 



/GET DRIVE CTRS 

0? 1 36 

200156 


LAC 

RDEOT 




00137 

740700 


S2A 


/THIS 

ONE AT EOT 

07140 

60215* 


JMP 

Til END 



/YES DONT READ 

07141 

2001 41. 


LAC 

LASRCR 




00142 

040126 


DAC 

sv«ecr 



/SAVE END OF RLS RECORDS 

00143 

2001 1« 


LAC 

RE AOMO 




0 P 1 4 4 

74 120(7) 


SNA 


/SELECTION NON STOP 

00145 

602151 


JMP 

. + 4 

/YES 

CO 

TO END RLS 


/ 


.EJECT 



H9 


PAGE 


a?146 

2 ? 0 1 4 a 


LAC RECORD 

tA?147 

040141 


OAC LASRCR 

i5915Ci 

44^141 


IS? LaSRCR 

09 101 

104407 


JMS RE A 0 I T 

09152 

2PI01 26 


LAC SVRECR 

09153 

043141 


DAC LASRCR 

09154 

1 0 0 7 0 6 


JMS SVCTRS 

09155 

100767 

T11EMD 

JMS CHGDRV 

09156 

60? 1 35 


JMP TllRDL 

02157 

101047 


JMS ALLEOT 

02160 

741000 


SKP 

02161 

622075 


JMP a TESTll 

02162 

100752 


JMS RSFORV 

02163 

100715 


JMS MVCTRS 

09164 

200140 


LAC RECORD 

02165 

540141 


SAD LASRCR 

02166 

140125 


DZM EOSELG 

02167 

100767 


JMS CHGDRV 

02170 

602163 


JMP .-5 

02171 

200125 


LAC EOSFLG 

02172 

740P00 


S ? A 

02173 

602135 


JMP TitRDL 

09174 

101047 


JMS ALLEOT 

02175 

602117 


JMP TllLPl 

02176 

622075 


JMP a TESTll 

02177 

000000 

Til INC 

0 

02200 

000000 

T 11ELG 



/NEXT TO BF READ 

/+1 EXIT RFAD AFTER 1 RECORD 
/READ 1 OR TO END RES 

/RESTORE END RECORD 
/SAVE CTRS THIS DRIVE 
/DONE ALL DRIVES 
/NO 


/GET CTRS AGAIN 

/AT END RLS 
/YES 

/CHECKED ALL DRIVES 
/NO ONE HAY BE AT EOT 

/AT END OF RLS 

/NO READ SOME MORE 
/TEST EOS DUMP SW 
/NOT EOS EXIT READ MORE 
/EXIT TEST 11 


EOT 



/ 


/ T r V> - T ‘ 1-0 } A T A . E L ! a 4 ! L t T Y TEST (T£“t 4 ) nr g ~ ; u k 

/ S T A T AT T.jT/ 5; ■ I T C J L c = C n « H A N 0 

/ 

/SWITCH? R 13 TO '7 i T T • .< RFLECT ION 0-7 

/ S w I T C R F s H 1 4 p A r i T v o = p V E N i - n r; n 

7 S 1 'i t: 12 AMiJ -,T = MOTIF (WRITE) 6 A v 0 7 a «ngr 
/,!■• — ■ 0 A- S T 0 P 

/ . ’ 1 = • T a T STOP OR I vr SFTT L r down 

/i" no xi random start stop nonstop 

/SWITCHES 1/ AND 11 = DENSITY 
/SWITCHES u A NO 0 = PrrO'PO LENGTH SEQUENCE 
/0 0 — M I N I M UM LENGTH (24 CHAP) 

/U1 = '-AY I MUM LENGTH (4006 CHAP) 

/ 1 ■ = "IN To m/X 24 TO 4008 CHAR 
/XI = MAX TO M[N 4008 TO 24 CHAR 
/SWITCH Sri !S MAKE A READ PASS 
/ S w S S A N 0 4 = 0 0 WRITE Pass to fot 
/ : "' l wR 1 T E PASS 1 SEQUENCE op 512 IP F1XF0 GEN 
/-10 WRITE F/fT f VERY record 
/ 

/switches 0 to 2 = drive number 

/RUN SWITCHES Swt = TYPE ALL ERRORS AS THEY OCCUR (WRITE) 

/ S W 4 ; STATISTICAL RECOVERY PROCEDURE (WRITE) 

/SW5 = 1-type all ERRORS AS THEY OCCUR (READ) 

/Swc = 1 -STa T I ST I CAL RECOVERY PROCEDURE (READ) 

/ S W 7 = 1-OFLFTF ALL READ RF COVERY ATTEMPTS 
/ 


/ IOT 
/ 


DEFINITIONS 


707352 

M T R S = 7 0 7 3 5 2 

707312 

MTPC=70731? 

707341 

MTSF = 70 7341 

707321 

MTCR=707321 

707701 

MTTR=707301 

707326 

MTLC=7 07726 

707304 

M T G 0 - 7 0 7 3 0 4 

70732? 

M TAF = 7S*73 22 

707324 

LCM=7073?4 

/ 

/RECORD LENGTH 

003724 

M A X L E N = 3 7 2 4 

000014 

M I N L E N = 1 4 

010000 

WRRUF = 1,1000 

0 0 00 3 7 

C A L 0 C = 3 3 

000032 

W C L. 0 C = 3 2 

000515 

MSEC=5ln 

1 0 0 0 0 T. 

BOTH I T = X 00000 

013724 

I- 0 H U E 1 = w SUE + M 1 

013724 

j-DPUE2 = -rBUEl 


/400b CHARACRERS 1336 WORDS 

/24 CHARACTERS 1 ? WORD 


(READ) 


•EJECT 



.LUC 20 
20 
hlt 


1 0 02 3 

3*020 7 00-*P' x 

0 P 0 2 1 7 4 7 . ' 4 / 

/ S T 4 ~ T UF TEST 1 PASS GET SWS WALT EXC 


v; - 13 vj. 0 



.LOC 3*00 

07 000 

7^7 ‘‘ 7 4 

ST* T r $ 

LAS 


0T001 

5 0 A ■' 4 


AMP 

( 70000 

00 002 

0401 0^ 


D AC 

ORVDEN 

00003 

103614 


JMS 

PEW I NO 

00004 

750P04 


LAS 


00 005 

043016 


DAC 

PASSWS 

0 7 006 

506 f* 0 0. 


AND 

(17 

07 00 7 

040100 


DAC 

PaTNUM 

00010 

1401 04 


D2 M 

Pah'BTj 

00011 

103072 


JMS 

CLPTRL 

0003 2 

1 4 0 1 2 * 


DHM 

SWTEST 

00013 

740040 


HLT 


0 7 0 1 4 

103720 


JMS 

GENPAT 

0001.5 

103100 


JMS 

WHIT IT 

00016 

00000" 

PASSWS 

0 


00017 

200111 


LAC 

PFCSYS 

00 020 

741200 


SNA 


00021 

603*2* 


JMP 

. +0 

0 7 022 

105200 


JMS 

GOPKWD 

00023 

104407 


JMS 

PEAOIT 

■0^02 4 

707 7 52 


M T* S 

00 025 

506015 


A NO 

(4 000 

30026 

7*1200 


SNA 


30027 

60321* 


JMP 

PASSWS- 

3 7 0 3 0 

740? 4 7 


HLT 


3 7 0 3 1 

603*00 


JMP 

STPTFS 


/DRIVE NUM 
/FOR REMIND 

/SWS TO RE EXECUTED 

/mask pattern and par 

/FOR FIRST GENERATE 
/AM) CLEAR OLD PARITY 

/Cl R record AND ERR TBt i 


2 /NEW RNDOM EVERY PASS 


/ 


•EJECT 



sjpR* r ■ ; i- \i r p ; 


• ■ ■ 7 ; 3 7 

6 0 5 ' 5 -• 

- A^G*-' N 

•J M ° . 

•'* ■/: .3 l . 

P '>■ \ ••’ *.. '* 


! a r ? ; £ f) i x 

: • '• (/■ X 4 

5 4 6 4 - 


5 A r ( •« a m T 4 1 

■* * 855 

7 4 1 / 7; 


S * 

/i '< 8 ** 6 

60 \ •■ 4 - 


JMP PA -TAD- 

4 <83 7 

P 7- * / 4 7 


LAP ( P A N T P j 


0 4 X • •' A »/ 


DAT. PA -OFX 

'• ;• tu i 

P 3 3 < * 5 7 


LAP ©a»?CON 

- ' '•■ 0 4 7 

7 4^17'’ 


spa • CL! 

''8*3 

7 4 4 i 7 p 


c Tt 

. ) '-'!<? 4 

7 4 0 / 1 7 


P A | 

/i ;• 04 5 

04 7 '5 7 


CAP © A ’CON 

A *0 4 6 

2 23 ”6 ' 


L A C •» P a NDE * 

0" 04 7 

3“ 3 'S7 

r ' A NT AO 

Tin & A ; c n M 

Vi -7 0 5 0 

06 3 ■? 5 •".' 


DACa RanOEX 


2«307i 


LAC © A ’ • S A V 

-•^057 

7 4 0/ pi' 


RAP 

05 3 

3 6 3 ' v 6 7 


T A n e Ranh E x 

0 7 0 5 4 

-5 4 3'.’ 7 1 


DAT RA'iSAV 

0 * 0 5 5 

4 4 306 * 


is? RA-vnrx 

0 “056 

6?'5.’3? 

/ 

jmpc range *. 1 

0"05 7 

1 ? 3 4 5 6 

©ANCON 

1 23456 

0 7 0 * 0 

003071 

I-AI'UFX 

°4 TRL *1 

A- 8*1 

65 4 5 2 1 

PANTP-L 

6 5 A 3 ? 1 

0 3 06? 

3 614 3 6 


361416 

: ‘ ‘*063 

055365 


055363 

■' “064 

54686? 


5 4 6 0 6 0 

/ 5 06 5 

p 4 3 0 3 


24303 5 

/' 0 66 

7 6 ? c 7 p 


76?5 7 ? 

.' T 0 6 7 

453737 


453237 

0’0 70 

150714 

/ 

157214 

■'"871 

880788 

pansav 

0 


/ 


. E JECT 



0 ^ (9 7 2 

6 {•' ?. -• ? 9 

/CLEAR — AD AND WRITE TABLES 
CL°T~'L jmp . 


/ '073 

2 a • 5 9 

LAC (W«CHE*<-1 

/CLEAR ALL 

‘ ' 0 7 4 


0 A C 1 0 

/WRITE TABLES t 0 ffi 

“075 

777750 

LAW -30 

/AND READ TABLES 

' >'076 

04 0 '-'11 

0 AC 11 

/THFPE APE 13 

0 7 0 7 7 

16 0 0 1 0 

n?w« i> 


07 100 

4 4 0 7 1 1 

IS? 11 

/DONE ALL 

0 7101 

603° 77 

JMP .-9 

/NO 

07102 

623079 

JMP* CLRTRL 



/ 


/TC5Q DATA RELIABILITY TF S T 

/WRITE portion 
/ 


0*103 

603103 

WRITIT 

JMP . 


03104 

2001 4 0 


LAC RECORD 


03105 

741200 


SNA 


3 ’10 6 

603111 


JMP . + 3 


03137 

443103 


ISH WRITIT 


03110 

6031 74 


JMP noincr 


031U 

20012 * 


LAC SWTEST 


0 3112 

740200 


$2 A 


0*113 

603144 


JMP NOTSWS 


0*114 

223103 


LAC* WRITIT 

/GET TEST CONTROL WORD 

0*115 

50577? 


AND ( 7 

/MASK PATTERN NUMBER 

3*116 

0401 03 


DAC PATNUM 

/SAVE IT 

0*117 

2231 03 


LAC* WRIT IT 

/WORP AG 

0*120 

506020 


AND ( 1 ?! 

/MASK PAR SELECT 

0 * 1 2 1 

0401 04 


QAC PAR0T1 

/SAVE IT 

3*122 

223103 


LAC* W R I T I T 

/GET IT AGAIN 

0*123 

506043 


AN 0 (700300 

/density ano drive 

0*124 

0401 05 


DAC DRVDEN 

/SAVE IT 

0*125 

223103 


LAC* WRITIT 

/GET WORD AGAIN 

0*126 

506013 


AND (1400 

/RECORD LENGTH 

0*127 

04010/, 


DAC RLTROL 

/control bits 

0*130 

223103 


LAC* WRITIT 

/GET WORD 

3*131 

506022 


AND (60 

/MASK START STOP 

>*132 

040107 


DAC MODBIT 

/MODE BITS 

7*133 

2231 0 3 


LAC* WRITIT 


. -134 

5060 


AND ( 6/00 


0*175 

04 01 1 


DAC 9 E A 0 M 0 


* 1 * 6 

223103 


LAC* WRITIT 


3 * 1*7 

5^6*37 


AND (1-000 


0 * 1 4 0 

0401 11 


DAC RECSYS 


7 *14 1 

2 2 31 0 3 


LAC* WRITIT 


0 * 1 4 ? 

5 0 6 4 4 


4 N c ( 6 7 0 0 0 


• * 1 4 3 

040119 


DAC fXJTMQ 


'*144 

4 4 3 1 0 7 

a OTSWS 

IS? WRITIT 

/STEP ADDRESS r OP p*!T 



/ 

.EJECT 




SFT UP 


/ 


/JOi. 


i'trO-D LfNGTE 


' <14 5 

? r> 0 1 

[if 

RL T R o L 

•i ‘ 1 4 6 

5^-fti ; 

a \-r 

( 4 j 

■; <14 7 

/ 

Q 0 £ 

. r L j 

-■ 3 SI/ 

774/b« 

L A w 

- m 1 X L E 

i si 

7 4 i P > 

S ^ A 

/ M k ? 

7777*4 

L A w 

- M I N L E 

5 • t 5 3 

3 4 •/) ; 1 R 

?) a r 

S T • L F K 

J ■ 1 5 4 

14 01 1 

n 7 v 

PLK [ NC 

7 ‘ 1 6 5 

?001 0 f- 

LAC 

R L t ROL 

4 7 1 R 6 

5 7 6 f 1 P 

A M P 

( 1 -*PIPi 

” 1 S 7 

7 4 i ? 2 ('* 

S A 


/:• 

6 -7 7 1 7? 

JMP 

NO I NCR 


2 C 6. ? 1 1 

I.4C 

< 2 

07 16 2 

7t 4 0 } 1 ^ 

OAT 

R L * I M C 

/ 7 1 6 3 

7 7 4 C 3 4 

LAW 

-MAXLE’ 

4 7 16 4 

5 4 a 1 1 7 

S A f ! 

STOLEN 

*7 7 165 

6031 7? 

JMP 

noincr- 

«*■■» 1*6 

2P01 l u 

LAC 

PLY INC 

W 7 16 7 

740^01 

CMA 


4 7 1 7 0 

04011^ 

D A C 

RL/ INC 

07171 

4401 | K 

IS? 

HLK INC 

0 7 17? 

2001 17 

LAC 

STOLEN 

7 717 3 

040147 

n a c 

HRTLFN 


/ 


/RECORD LFNGTH 
/STARTING LENGTH f T T 
/maximum LENGTH 
/ Y F G MAXIMUM 
/OR MINIMUM LENGTH 

/ YF S MINI MUM 
/SAVE STARTING LENGTH 
/CLf a» length INCREMENT 
/GET RFCCRO LENGTH CONTROL 
/mask CHANGE LENGTH pit 
/CHANGE record LENGTH 
/NO 

/ S A V r it aS A + N u M 

/LENGTH START aT MAX 
/YES LEAVE INCR + 

/RECORD LENGTH START 
/IS MINIMUM 
/MAKE IT - SO 
/PLOCK WILL GET LONGER 
/STARTING RECOPD LENTH 
/TO CURRENT BLOCK LENTH 


.EJECT 



P A r. c 3 4 

/€ I T-E- ' 0 Lf NGTm INCREMENT OR ALREADY SET UP 


* 7 1 7 4 

2 .^0! 7 4 

0 i ' 4 

t. A •' PAQQTl 

/err P4R1TY selection 

V 7 1 7 5 

1 £ & ' P / 



/move pit over to command rarity 

* 7 176 

7 4?"? 


p T 4 ; Q TP ; 

BTR j RAO 

7 1 7 7 

74 ? ‘7 * 




:>3 200 

7 4 p ? ; 




0 7 2 0 1 

740/ p • 




03 202 

3 4 0 1 7 ~ 


tap n^vofN 

/combine with DRV DENSITY 

0 3 203 

040114 


DAC C 0 M A ^ 0 

/SAVE IT 

03 204 

2001 40 


LAC PECORD 


03205 

040144 


0 A C W k p E C R 


07 206 

442200 


IS? T 1 1 F L G 


03207 

741000 


SKP 


03210 

623107 


JMP# w p I T I T 


0 3 211 

777770 


LAW -l 1 * 


03212 

04011 6 

/ 

0 Ac WRPASS 




/ S T A -7 T 

The WRITE sequence 

EROM BOT 

0 3 213 

206045 

ST P TOP 

LAC (4400 

/WRITE + ENI 

07214 

340114 


tad co m and 

/drive density and parity 

03215 

707321 


MTCR 


03216 

603215 


JMP .-1 


03217 

707326 


MTLC 

/LOAD THE COMMAND 

03220 

740000 


NOP 


03221 

707301 


MTTR 


03 222 

603221 


JMP .-1 


03223 

200143 

NO&-STP 

LAC WRTLEM 

/record length 

0 7 2 2 4 

040030 


0 AC WCLOC 

/TO WORD COUNT REG 

03225 

206046 


LAC (WO0UF-1 

/BUFEER ADDRFSS 

03226 

040037 


DAC CM OC 

/TO CA LOCATION 

03227 

707304 


MTGO 

/GO DRIVE GO 

07 230 

2001 03 


LAC P A T N U M 


03 231 

545774 


SAD ( 7 

/RANDOM PAT SELECTED 

07232 

103267 


JMS STPPAT 

/YES NEW PAT EVERY BLOCK 

07233 

103427 


JMS WAIT! 

/WAIT FOR INTERRUPT 

0 7 234 

7 4H00 


SPA 

/ANY ERROR FLAG 

07 235 

60337* 


JMP F PPOR 

/YES SEE IE EOT 

■0 7 2 3 6 

777 7 7? 


LAW - 1 3 


*7237 

54 01 1 A 


SAD W ri 0 a S S 

/RECOVERY PASS 

3 7 24 0 

603247 


JMP T S T S T P 

/NO SEE IF START STOP 

03 24 1 

2001 1 * 


LAC WRP ASS 


0 " 2 4 2 

346047 


T A 0 (is? P F RM B S 

/LAST PASS K- 

* 7 2 4 3 

04.32 4 4 


0 A C . + 1 

/TO *1 RECVR PASS 

7 2 4 4 

4 4 01 3 ? 


IS? RE* VI 


* “245 

77777? 


l AW - 1 - 


03 24 6 

04 01 1 A 


PAC WRP ASS 



■EJECT 



P t: L T 9 PAGE 35 


032 A 7 

200107 

TSTSTo 

LAC MOOS I T 

/GFT START stop RODE FROM HODBIT 

/l 7 250 

740200 


S24 

/NON STOP 

07251 

603257 


JMP STOPOP 

/NO START STOP 

07252 

777770 


LAW - 1 ^ 


03 25 3 

540116 


SAD WRPASS 


07254 

103320 


JMS TESINC 

/CLEAR ALL MAGTAPE FLAGS 

03255 

707322 


MTAF 


07256 

603223 


JMP NONSTP 

/GO AGAIN 

07257 

506027 

STOPOP 

AND (40 


03260 

740200 


sha 

/START STOP RANDOM 

03261 

103277 


JMS RANJSTP 

/YFS 

03262 

777770 


LAW -10 


03263 

540116 


SAD WRPASS 


03264 

103320 


JMS TESINC 


03265 

103642 


JMS WATRDY 

/JUST START STOP 

03266 

603213 


JMP STRTOP 

/WAIT drive ready go again 




.EJECT 




• -H I ! 9 


PAGE 36 




/IF READ 

SELECTED DO NOT 

REGENERATE RANDOM 



/RANDOM 

PAT SELECTED IF 

NOT ERR PASS regen 

'33267 

603267 

STRPAT 

JMP . 


03270 

200111 


LAC RECSYS 


03271 

740200 


SEA 


03272 

623267 


JMP * STRPAT 


03273 

777770 


LAW -10 


03274 

540116 


SAD WRPASS 

/SKIP IS ERROR PASS 

03275 

103720 


JMS GENPAT 

/NOT ERROR PASS REGENERATE 

03276 

623267 


JMP * STRPAT 


03277 

603277 

RANSTP 

JMP . 

/STALL ranoom time 

03300 

10303? 


JMS RANGFN 

/GET RANDOM NUMBER 

03301 

506050 


AND <177 

/MASK FOR 0 TO 127 

03302 

740001 


cma 

/MAKE -1 TO -128 

03303 

043316 


DAC MTIMER 

/FOR COUNTIM MILLISEC 

033*4 

346026 


TAD <4 


033*5 

740100 


SMA 

/COUNT -1 TO -4 

033*6 

603252 


JMP TSTSTP+3 

/YES GO NONSTOP 

03307 

777263 


LAW -MSEC 

/TO COUNT 1 MILLISEC 

0331* 

043317 


DAC MTIMER+1 


03311 

443317 


IS? MTIMER+1 

/TIME 1 MILLISEC 

03312 

603311 


JMP .-1 


03313 

443316 


IS? MTIMER 

/WAITED random TIME 

03314 

603307 


JMP .-5 

/NO 

03315 

623277 


JMP* RANSTP 

/GO AGAIN 

03316 

000000 

MTIMER 

0 


03317 

000000 


0 



/ 


EJECT 



L T 


3 7 


o a. c f 


0 ? 3 2 0 

000000 

*3321 

4 4 01 4 0 

-•‘3 322 

2 0 0 1 1 ^ 

•"323 

74120- 


60335? 

3?325 

3401 43 

*3326 

0401 43 

M3 3? 7 

346051 

33330 

740100 

03331 

6 0 3 3 43 

333 3? 

20605? 

03333 

340143 

*3334 

74U00 

33 335 

603343 

03 3 36 

200 1 1 2 

03337 

506035 

03 34 0 

741200 

03 341 

623320 

03 34 2 

623103 

03 34 3 

200113 

03344 

040143 

03345 

1401 25 

0 3 34 6 

20011? 

033 4 7 

741200 

03350 

623320 

03351 

623103 

03352 

2001 40 

03353 

506053 

03354 

740200 

03 355 

603363 

03356 

140125 

03357 

200112 

03360 

740200 

03361 

623103 

03362 

623320 

03363 

2001 12 

03364 

506035 

0^365 

740200 

03.366 

6231.03 

03 36 7 

623320 


/ 


/SFF IF 
/ 

TESPvC 

&ECO&D L f N G T M SHOULD 

BE CHANGED 

0 

IS? RECORD 

/ENTFP 


LAC BLKJN’C 

/GET IMCREMEMTFR 


SNA 

/LENGTH CHAOGING 


JMP TES2K 

/NO GET OUT 


TAO wrtlfn 

/ 1 NCR * RFC LENGTH 


DAC WRTLEN 

TAD (MINLEN 

/SAVE IT 


SMA 

/COUNT LESS THAN MIN 


JMP resetl 

/YES RESET IT 


LAC (MAXlEN+1 

/* MAX + 1 


Tad wrtlen 

SPA 

JMP RESETL 

LAC EXITMO 

AND (40000 

SNA 

JMP. TESINC 

JMP. WRITIT 

/- CURRENT length 

RESETL 

LAC STRLEN 

/RESET LENGTH TO 


DAC WRTLEN 

OZM EOSFLG 

LAC EXITMO 

SNA 

JMP. TESINC 

JMP. WRITIT 

/current start 

TES2K 

LAC RECORD 

AND (377 

SZA 

/GET NEXT RECORD NUMBER 


JMP .*6 

/RECORD NOT AN INC OF 256 


DZM EOSFLG 

/MULT OF 256 CLEAR EOS FLG 


LAC EXITMO 

/EXIT MODE 


SZA 

/GO TO END OF TAPE 


JMP. WRITIT 

/NO EXIT WRITE SEQUENCE 


JMP. TESINC 

/EXIT AT EOT ONLY 


LAC EXITMO 

/GET EXIT MODE 


AND (A0000 

/MASK EXIT EVERY 


SZA 

/EXIT every record 


JMP. WRITIT 

/YES 

/ 

JMP. TESINC 

.EJECT 

/NOT EXIT EVERY RECORD 



e - L 1 9 PACE 'fi 




/£PPOR 

status 

SEE IF EOT 



/ C M E C K 

sw I TCH 

OPTIONS 

03370 

e; v» a 5 4 

TPPOP 

AND 

( 373600 

03371 

7*i? 0 


SNA 


*3372 

60 3 ^ 


JMP 

ENDTAP 

0 7 373 

777777 


LAW 

-IB 

07374 

5 4 7! 1 1 A 


SAD 

WRDASS 

03375 

440127 


IS? 

WRCHFK 

03376 

750*04 


LAS 


07377 

50603^ 


AND 

( 40000 

03400 

741200 


SNA 


0 3 401 

603*1? 


JMP 

TESREC 

07402 

206055 


LAC 

( TEXT 1 

07 4 0 3 

105232 


JMS 

TYPET 

0 7 4 0 4 

707312 


MTRC 

0 T 405 

105312 


JMS 

TYPEC 

03406 

203641 


LAC 

STATRD 

03407 

103646 


JMS 

SPTCON 

03410 

2002 40 


LAC 

RECORD 

07411 

10364* 

/ 

TESRITC 

JMS 

SPTCON 

03412 

750004 

LAS 


03413 

506036 


AND 

( 20000 

0 3 414 

740200 


S? A 


03415 

603*34 


JMP 

STAREC 

03 416 

200111 


LAC 

RECSYS 

03417 

740200 


S? A 


07420 

105114 


JMS 

XRCREC 

03421 

740000 


NOP 


03422 

777770 


LAW 

-10 

07423 

040H6 


0 AC 

WRPASS 

0 3 4 2 4 

203641 


LAC 

STATRD 

03 4 25 

506015 


AND 

( 4000 

0 7 4 26 

740200 


S ? A 


07 4 2 7 

603565 


JMP 

enotap 

03 4 30 

707321 


MTCR 

03431 

603247 


JMP 

TSTSTP 

0 7 4 3 2 

103*4? 


JMS 

watrdy 

03 4 33 

607P62 


JMP 

ST OPOP + 3 


/MASK ALL ERROR PITS 

/EXCEPT EOT 

/ERR WAS EOT NO ERR 

/FIRST ERR 

/YES *1 NUM WRITE ERR 


/TYPE ALL ER = 1 

/NO SEE IF RECVR SELECTED 

/TYPE WRITE STATUS ERROR 

/TYPE COMMAND 

/SPACE 2 AND TYPE 

/SPACE 2 TYPE BLOCK number 


/RECOVER STATISTICALLY 

/SELECTED 

/YES 


/EOT 

/YES TYPE 
/IS CU READY 

/CONTROL NOT READV NO TYPeOUT 
/WAIT FOR DRIVE 
/START AGAIN 



/■ 4 7 4 

4 4 01 1 A 

RT A RFC 

IS? 

W R p A S S 

/TP I F D 7 REWRITES 

.435 

6 0-344 :/• 


JMP 

. + < 

/NO 

0 436 

440137 


IS? 

PEQMPS 

/YES +1 PERM BAD SPOT 

4 -'4^7 

6 0 7 4 1 A 


JMP 

TESRFC+4 

/GO 00 NEXT BLOCK 

d 7 4 A (/: 

1 0 3 6 5 K 


JMS 

PACK? 

/BACKUP ? RECORDS 

■■/: 7 4 4 1 

707352 


MTRS 


?: 7 4 4 2 

5 0 6 0 5 A 


A NO 

(BOTRIT 

/AT BOTTOM 

/) ;• 4 4 3 

7 40200. 


S H A 



fej 7 4 4 4 

603213 


JMP 

STRTOP 


'J d 4 5 

103670 


JMS 

SP ACPI 

/NOT 3 0 T COME EWp 1 

3 7 4 4 6 

206015 


LAC 

( 

/CHANGE SPACE 

07 4 4 7 

707324 


LC M 


/BACK TO WRITE 

*3 4 50 

603247 


JMP 

TSTSTP 

/CHECK NONSTOP MODE 

07 451 

603451 

WRTOMP 

JMP 



03 45? 

2001 05 


LAC 

ORVQFN 


03453 

74?010 


RTLi 

; RTL 


0 ■* 4 5 4 

742010 





0 3 4 5 5 

105341 


JMS 

TVlOCT 


’47 4 56 

10370? 


JMS 

SPACP3 


4 7 4 5 7 

2001 03 


LAC 

patnum 


03 4 60 

105341 


JMS 

TYj OCT 


07 4 61 

10370? 


JMS 

SPACP3 


0 7 4 6 2 

2001 04 


LAC 

PARBTl 


07463 

742020 


RTR ; 

RAR 


0 7-464 

740020 





0 7 4 65 

105341. 


JMS 

T Y 1 OCT 


03 4 66 

200105 


LAC 

DRVOFN 


77467 

742020 


RTR ; 

RTR; 

RTR 

03 4 70 

742020 





03471 

742020 





03472 

506007 


AND 

( 3 


03 4 73 

346057 


TAD 

(LAC OENTYP 


07474 

043475 


DAC 

. + 1 


03475 

203600 


LAC 

OENTYP 


0 3 4 7 6 

10523? 


JMS 

TYPET 



/ 


.EJECT 



jP F L 1 9 


p A r E 4 8 


3 1 7 4 7 7 

200107 

LAC 

MODBIT 



0 7 50B 

7 4 ? ? " 

RTR ; 

RTR 



0 7 501 

7 4 232 J 





07502 

5B6"07 

AND 

( 3 



0 3 50 3 

346060 

TAD 

(LAC TYMOOF 



3 7 50 4 

04350 c 

DAC 

. +1 



03505 

206061 

LAC 

(TYMOOF 



03 506 

105232 

JMS 

TYPET 



03507 

200140 

LAC 

RECORD 



0 3 510 

105^46 

JMS 

TYDECI 



03511 

200106 

LAC 

RLTROL 



03512 

742020 

RTR ; 

RTR ; 

RTR ; 

RTR 

03513 

742020 





03514 

742020 





03515 

742020 





03516 

506007 

AND 

(3 



03517 

346062 

tad 

(LAC LTHTBL 



03520 

043521 

DAC 

. +1 



03521 

203610 

LAC 

LTHTBL 



03522 

105232 

JMS 

TYPET 



03523 

206063 

lac 

( TFXT 10 



03524 

105232 

JMS 

TYPET 

/write 

errors 

03525 

200127 

LAC 

WRCHEK 



03526 

105346 

JMS 

TYDECI 



03527 

777771 

LAW 

-7 



03530 

040010 

DAC 

10 



03531 

206064 

LAC 

(RECVl-l 



03532 

040011 

DAC 

11 



03533 

14001? 

D2M 

12 



03534 

44001? 

IS? 

12 




/ 

.EJECT 



P A r. j- 


<s i 


/ 


y*535 

223*1.1 

T Y 6 f c V L 4 r 0 11 


3*536 

0 4 0 V 1 3 

PAG 13 


3 -537 

741 20- 

SNA 


A - 5 4 0 

60355? 

JMP TYRALL 


3*541 

206065 

LAG (TrxTH 


3354? 

105?3? 

JMS TYP£T 


3*543 

20606ft 

LAC ( T 0 X T 1 ? 


3 <544 

105235 

JM C TYP£T 


33545 

200*1? 

LAC 12 


«*546 

105341 

JMS TYlOCT 


3 3 54 7 

10370? 

JMS SPACE3 


3*563 

20 0 0 1 3 

LAC 13 


33551 

105346 

JMS TYDECI 


3 3 5 52 

44001? 

TYRALL IS? 12 


3*553 

440010 

IS? 10 


0*554 

603535 

JMP TYRECV 


0 3 5 55 

200137 

LAC PERMBS 


0*5 C 6 

74i?00 

SNA 


0*557 

623451 

JMP. WRTOMP 


03560 

206067 

LAC (TFXT 13 


03561 

10523? 

JMS TYPET 


0*562 

200137 

LAC PERMBS 


03563 

105*46 

JMS TYOEC I 


0*564 

623451 

JMP. WRTOMP 




/ 

/write pass orv is at eno of 

TAPE 

03565 

206070 

ENOTAP LAC (TEXT2 


03566 

440140 

IS? RECORD 

/TYPE EOT TEXT 

0*567 

10523? 

JMS TYP£T 


0*570 

103451 

JMS WRTDMP 

/DUMP COUNTERS 

03571 

777777 

LAW -1 


03572 

04014? 

DAC WRTEOT 

/SET WRITE TO 

0*573 

623103 

JMP. WRITIT 

/ 

/EXIT 



.EJECT 




EJECT 



0' 7 574 

005^16 

/ 

TYM0-1E 

TEXT7 

/NONST 

0 7 575 

005^22 


TEXTS 

/STSTP 

03576 

005526 


TEXT9 

/RMDOH 

0 7 57 7 

005526 


TEXT9 

/RNDOM 

0 7 60 0 

005502 

DENTYP 

TEXT4 

/TYPE 200 

07601 

005506 


TEXT 1 ' 

/TYPE 556 

07 602 

005512 


TEXT6 

/TYPE 800 

0 7 60 3 

005512 

/ 

TEXT6 

/DITTO 800 

07604 

000010 

/ 

inctrl 

10 

/24 CHAP 200 fiPI 

0 7605 

000004 


4 

/ 12 CHAP 556 BPI 

07606 

000002 


2 

/6 CHAR 800 BPI 

07 607 

000002 

/ 

? 

/INCASE SWITCH GOOF 

03610 

005532 

/ 

LTHTBL 

TYPMIN 


07611 

005540 


typmax 


07612 

005547 


TYPaVI 

/type average 1 

07613 

005557 

/ 

TYPAV2 

/TYPE AVERAGE 2 



.EJECT 




« ; U9 


page 44 


/REWIND TO LOAD POINT 
/ 


0 3 6 i A 

603614 

rewind 

JMP . 


01615 

?0010 t: > 


LAC ORVDENA 

/DRIVE NUMBER 

0.1616 

707321 


MTCR 


01617 

603616 


JMP .-1 


01620 

707326 


MTLC 

/LOAD COMMAND 

01621 

707301 


MTTR 

/DRIVE READY 

01622 

603621 


JMP .-1 

/NO 

01623 

206012 


LAC (13071 

/REWIND 

01626 

707324 


LCM 

/CHANGE NOT TO 

01625 

707304 


MTGO 

/GO 

01626 

623614 

/ 

JMP. REW ! NO 

/EXIT 



/ 

/WAIT FOR 
/ 

WAIT! 

program interrupt 


01627 

603627 

JMP . 


01630 

206071 


LAC (JMP IRECO 


01631 

040001 


D AC 1 


0.7632 

70004? 


ION 


01633 

603633 

/ 

IRECD 

JMP . 


0.7636 

707341 

MTSF 


03635 

740040 


HLT 


03636 

707352 


MTRS 


01637 

043641 


OAC STATRD 


03660 

623627 

/ 

STATRD 

/ 

JMP. HAITI 


01661 

000000 

0 




/ 

/WAIT FOR 
/ 

WATROY 

cu and drive ready 


01662 

603642 

JMP . 


01663 

707301 


MTTR 


01666 

603643 


JMP .-1 


01665 

62364? 


JMP. WATROY 



/ 

.EJECT 



L I 9 


45 


PAGE 


d 7 6 4 6 

6 a 3 6 4 h, 

y 6 4 7 

043654 

0 6 *=5 0 

1 0 3 7 1 1 

03651 

203654 

is r< 6 *5 2 

105312 

07 653 

623646 

\A :< 65 4 

000000 


03655 60365S 

03656 10364? 

03657 200114 

03660 34607? 

03661 707326 

03662 777776 

03663 04003? 

03664 707304 

03665 707341 

03666 603666 

03667 623655 


03670 603670 

03671 206023 

03672 707324 

03673 777777 

03674 04003? 

03675 707322 

03676 707304 

03677 707341 

03700 603677 

03701 623670 


03702 60370? 

03703 203706 

03704 105232 

03705 62370? 

03706 003707 

03707 201004 

03710 077400 


/SPACE 2 A NO TYPE CONTENTS 
/ 

SPTCON JMP . 

DAC SPTSAV 
JMS SP A CE2 
LAC SPTSAV 
JMS TYPEC 
JMP. SPTCON 
SPTSAV 0 

/ 

/ 

/BACKSPACE 2 RECORDS 
/ 

BACK? JMP . 

JMS WATRDY 
LAC COMAND 
TAD <7400 
MTLC 
LAW -2 
OAC WCLOC 
MTf.O 
MTSE 
JMP .-1 
JMP* BACK2 

/ 

/ 

/SPACE FORWARD 1 RECORD 
/ 

SPACE1 JMP . 

LAC (6000 
ICM 

LAW -1 

OAC WCLOC 

MTAF 

MTGO 

MTSE 

JMP .-1 

JMP* SPACE 1 

/ 

/ 

/SPACE 3 PLACES 
/ 

SPACE3 JMP , 

LAC .+3 
JMS TYPET 
JMP* SPACE3 
. +1 

.ASCII ' ' <177> 


/ 


.EJECT 



iWt-'l 19 


P AC E 46 


/SPACE 2 PLACES 
/ 


ta ’ 7 1 1 

6C3711 

SPACE2 

JMP . 

? '< 7 1 2 

203715 


LAC .*7 

0 " t 713 

105232 


JMS TYPET 

0 7 714 

623711 


JMP » S D ACE2 

0 7 715 

003714 


. +1 

/771 6 

201017 


• ASCII ' 

07717 

700700 

/ 




/ 

• EOT 


< 1 7 7> 



l. I 9 


0*720 
03721 
07 722 
B 7 7 2 3 

37724 

37725 
03726 
03 7 2 7 


6 (^ 372 ? 
2(701 ?7 
3405 04 
3 4 6 0 7 3 
345777 
043726 
403733 
62372 ? 


/TAPE 6 TC59 DATS RELIABILITY 
/PATTER'. GENERATION ROUTINES 
/TC5R DATA RELIABILITY TEST 
/ENTRANCE is JMS GFNPaT 
/PATNUM - 0 TO 7 PATTERN NUMBER 
/PARBTi = 2 EVEN PARITY 10 ODD PARITY 

/patnum + parsTi gets patterns h to 17 
/ 

/ 

/generate patterns control routine 
/pattern number e parity bit * address 
/of pattern table 
/ 

GENPAT JMP . 

LAC PATNUM 
TAD PARBTl 

tap (pattbl 
Tad (XCT 
DAC .+1 

XCT pattbl 

JMP* GENPAT 


/pattern number 
/+ PARITY bit 
/♦ table address oe jms 
/ + EXECUTE INSTRUCTION 
/TO EXECUTE JMS TO PATTERN 

/generate i oe i6 patterns 

/EXIT 


/ 

/FIRST 6 


03730 

103750 

p ATT9L 

JMS 

GN r V00 

0 7 7 31 

103754 


JMS 

GNEV01 

077?2 

103770 


JMS 

GNEV02 

03733 

103774 


JMS 

GNEV03 

0 7734 

104000 


JMS 

GNEV 04 

03735 

104004 


JMS 

G N P V 0 5 

07736 

1040?0 


JMS 

GNEV06 

07737 

104024 

/ 

JMS 

GNEV07 



/ 

/2ND 8 
/ 

JMS TO 

ODD PARITY 

0 7 7 4 0 

104054 

JMS 

GNOD00 

0 7 7 4 1 

104060 


JMS 

GNOD01 

03742 

104074 


JMS 

GNOO02 

04 743 

104100 


JMS 

GNOO03 

03744 

104114 


JMS 

GNOO04 

03745 

104120 


JMS 

GNOD05 

03 74 6 

104134 


JMS 

GNDQ06 

03 74 7 

104140 


JMS 

GNOD07 


jms to even parity patterns 

/HIGH FREQUENCE outside tracks 
/SLIDING NO BIT 
/HIGH FREQUENCE ODD tracks 
/HIGH FREQUENCY INSIDE HALE OUT 
/CHARACTER COUNT NO 00 
/NO BIT EACH TRACK 3 FRAMES 
/SLIDING 0 18 BITS 
/RANDOM CHARACTER NO 00 


/HALE FREQUENCY OUTSIDE TRACKS 

/SLIDING ONE BIT CHAR 

/HIGH FREQUENCY EVEN TRACKS 

/THREE ONES THREE 0 TRACK 

/INC CHARACTER 00 INCLUDED 

/THREE ONE BITS ALL TRKS 

/ALL ONES HIGH FREQUENCY ALL TRACKS 

/RANDOM WORD PATTERN 


03750 
0*751 
03752 
07 753 


603750 

104156 

0060-14 

623750 


/PATTERN 0 EVEN PARITY HIGH FREQUENCY 

/outside skew pattern 
/ 

C.NEV00 JMP . 

JMS STRONE 
006014 
JMP* GNEV00 


.EJECT 



>Rf L ! 9 


PAGE 48 


03754 
7. '755 
/ '* 7 5 6 
« "'757 

03760 

03761 
77762 
0^7 63 
0 3 7 6 4 

03765 

03766 

03767 


03770 

03771 

03772 

03773 


03774 

03775 

03776 

03777 


603784 

104204 

377577 

737737 

767767 

77577*3 

577377 

677677 

757757 

773773 

776776 

623754 


603770 

104156 

641503 

623770 


603774 

104156 

773773 

623774 


/PATTERN 1 EVEN PARITY 

/SLIDING 0 BIT CHARACTER PATTERN 

/ 

G N F V 0 1 JMP . 

JMS RTRWRD 

377577 

737737 

767767 

775775 

577377 

677677 

757757 

773773 

776776 

JMP* GNEV01 

/ 

/ 

/PATTERN 2 EVEN PARITY 

/high frequency pattern even tracks 
/ 

GNEV02 JMP . 

JMS STRONE 
641503 
JMP* GNEV02 

/ 

/ 

/PATTERN NO 3 EVEN PARITY 
/HALE FREQUENCY OUTSIDE TRACKS 
/high frequency inside tracks 
/ 

GNEV03 JMP . 

JMS STRONE 
773773 
JMP* GNEVB3 

/ 

•EJECT 



/pattern mumper 4 even parity 
/incrementing character pattern 


*4 000 604030 
0/001 206074 
0/002 104231 
04003 624002 


GNEV34 JHP . 

LAC (SNA 
JMS GENINC 
JMP* GNEV04 

/ 

/ 

/PATTERN NO 5 EVEN PARITY 

/3 0 BITS EACH TRACK EVERY 7TH WORD 


/ 


0/004 

604004 

G N F V 0 5 

JMP . 

04005 

104307 


JMS STHAlF 

04006 

177777 


177777 

0 4 0 0 7 

677577 


677577 

04010 

737677 


737677 

04011 

757737 


757737 

0 4 012 

767757 


767757 

0401 3 

773767 


773767 

0 4 014 

775773 


775773 

0/015 

776775 


776775 

0 4 016 

777376 


777376 

0.4 017 

624004 


JMP* GNEV05 



0 4 0 20 

04021 

04022 
0 4 0 23 


04124 

04025 

04026 

04027 

04030 

04031 

04032 

04033 

04034 

04035 

04036 

04037 

04040 

04041 

04042 

04043 

04044 
04065 

04046 

04047 
34050 

04051 

04052 

04053 


04054 

04055 
040416 
0 4 057 



/PATTER' 

N NUMRER 6 EVEN PARITY 


/high frequency all rut parity 

6 o 4 2 2 

G M F V /* 6 

JMP . 

104156 


JMS STRONE 

177777 


177777 

67 4 0 20 

/ 

JMP* GNEV06 


/ 

/PATTERN NUMBER 7 EVEN PARITY 


/RANDOM 
/THROW , 
/ 

GNEV07 

DATA PATTERN 

sway all word with 00 COOES 

604024 

JMP . 

104275 


JMS SETSTR 

777764 


LAW -MINLEN 

040013 


DAC 13 

10303? 


JMS RANGEN 

040012 


DAC 12 

506075 


AND (177400 

741200 


SNA 

604030 


JMP GNEV07+4 

200012 


LAC 12 

506053 


AND (377 

741200 


SNA 

604030 


JMP GNEV07+4 

200017 


LAC 12 

104354 


JMS GT9PAR 

246076 


XOR (600000 

360010 


OAC* 10 

440011 


IS? 11 

741000 


SKP 

624024 


JMP# GNEV07 

440013 


IS2 13 

604030 


JMP GNEV07+4 

104166 


JMS MOVEUP 

624024 

/ 

JMP# GNEV07 


/ 

/FIRST 0 

F ODD PARITY PATTERNS 


/HALF fh 

EQUENCY OUTSIDE TRACKS 


/LOW F*E 
/ 

OUENCY SKEW 

604054 

GNOD30 

JMP . 

104156 


JMS STRONE 

004004 


004004 

624054 


JMP. GUOD00 


/ 


/GET FOR ODD PARITY 
/CHANGE TO EVEN 



04 060 

604 0 6 ( ? 

0 4 061 

104236 

14 062 

400P00 

04063 

04304* 

04 064 

010010 

04065 

00200? 

0 4 066 

200400 

04067 

100100 

04070 

02002* 

04071 

004004 

0 4 0 7 2 

00200? 

04073 

624060 


04 074 604074 

0-5075 104156 

0-5076 136274 

0-5077 624074 


04 130 

604100 

04101 

104307 

04102 

017437 

04103 

740300 

04104 

037076 

04105 

700601 

04106 

076174 

04107 

601403 

04H0 

174370 

04111 

003407 

04H2 

770360 

04 113 

624100 


34114 604114 
04115 206077 
34116 104231 
04117 624114 


/ODD PS- 1 TV PATTERN 1 
/SLUING ONE BIT CHARACTER PATTERN 
/ 

GNOD/1 JMP . 

JMS STRWRO 
400200 
04K040 
010010 
002002 
200400 
10P100 
020020 
004004 
002002 
JMP* GNOD01 

/ 

/ 

/odd parity pattern nuhber ? 

/HIGH FREQUENCY ODD NUMBERED TRACKS 
/ 

GNOD02 JMP . 

JMS STRONE 
136274 
JMP* GNOD02 

/ 

/ 

/ODD PARITY PATTERN NUMBER 3 

/3 ONES 3 ZEROS 3 ONES 6 ZEROS EVERY TRACK 
/ 

GNOD03 JMP . 

JMS STHALF 

017437 

740300 

037076 

700601 

076174 

601 403 

174370 

003407 

770360 

JMP* GNOD03 

/ 

/ 

/ODD PARITY PATTERN NUMBER 4 
/CHARACTER COUNT PATTERN WITH 00 CODES 
/ 

GNOD04 JMP , 

LAC (SKP 
JMS GENINC 
JMP* GNOD04 


/ 


.EJECT 



R r L T9 


RAGE 


52 




/odd parity pattern number 5 



/EACH 

/ 

GNOD05 

track by itsflf for 3 frames 

0' 120 

6041 20 

JMP . 

0 '■•121 

104307 


JMS STHALF 

0 a 1 g 2 

600000 


600000 

04 123 

100200 


100200 

0<il24 

340100 


040100 

en?5 

020040 


020040 

0 a 1 26 

010020 


010020 

04127 

004010 


004010 

04130 

002004 


002004 

04131 

001002 


001002 

04132 

004001 


004001 

04133 

624120 

/ 

JMP * GNOD05 



/ 

/ODD PARITY PATTERN NUMBER 6 



/HIGH 

/ 

GNOD06 

FREQUENCY ALL TRACKS 

04134 

604134 

JMP . 

04135 

104156 


JMS STPONE 

04136 

777777 


777777 

04137 

6241 34 

/ 

JMP* GNOD06 



/ 

/ODD PARITY PATTERN NUMBER 7 

/random words including 00 codes 
/ 

04140 

604140 

/ 

GNOD07 

JMP . 

04141 

104275 


JMS SETSTR 

04142 

777764 


LAW -MINLEN 

04143 

040014 


DAC 14 

04144 

103032 


JMS RANGEN 

04145 

104354 


JMS GT9PAR 

04146 

060010 


DAC* 10 

04147 

440011 


IS? 11 

04150 

741000 


SKP 

04151 

624140 


JMP* GNOD07 

04152 

440014 


IS? 14 

04153 

604144 


JMP GNOO07+4 

04154 

1041 66 


JMS MOVEUP 

04155 

6241 40 

/ 

JMP* GNOD07 


.EJECT 



L 1 i 


0 £ 1. 5 6 

60415* 

.5 ' 1 *? 7 

104575 

V 160 

2P4 1 56 

3 4 1ft 1 

0 6-30 IP 

04 16? 

440011 

&nft3 

604161 

0 -£ 1 6 4 

444156 

3 4 165 

624156 


04166 

604166 

3 ' 16 7 

140016 

0 4 17 0 

777764 

04 171 

0400 14 

34172 

206046 

04173 

340016 

34174 

040015 

04 175 

220015 

04176 

060010 

04177 

440011 

04200 

741000 

04201 

624166 

04202 

440014 

04203 

604175 

04204 

440016 

04 205 

6041 70 


/STO->E word SUBROUTINES 

/GFNFPaTE PATTERNS IN W R I T F RUEEEP 

/ 


STRODE 

j M p 

J M S SETSTR 

/SET UP INDEXES 


LAC* STRONE 

/GET WORD 


D AC* l* 

/STORE IT 


IS? ii 

/PILLED PUFFER 


JMP 

/NO FILL SUFFER 


IS? STRONE 

/stfp EXIT 


JMP * STRONE 

/EXIT 

/HOVr THE FIRST SERIES OF 


/random 

DATA WORDS IN WRITE 

RUFF 

/several 

TIMES UNTIL BUFFER 

FULL 

move: up 

JMP . 

02M 16 

LAW -MJNLEN 

0 AC 14 

/SET MINIMUM LENTH 


LAC (WPBUE-l 

/START AT A NEW PLACE 


Tad 16 

/IN wrbuf each move pass 


DAC 15 

/TO GET WORDS 


LAC* 15 

/GET A WORD 


DAC* 10 

/MOVE IT UP 


IS? 11 

/BUFFER FULL 


SKP 

/NO 


JMP* MOVEUP 

/EXIT 


IS? 14 

/DONE TO END OF SERIES 

/ 

JMP MOVEUP+7 

IS? 16 

JMP MOVEUP + 2 

/NO 

.EJECT 






}«^'L T 9 
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/STORE A 9 WORD PATTERN IN WRITE BUFFER 
/ 


04 206 

604206 

ST9WRD 

JMP . 


0 4 707 

104275 


JMS SETSTR 

/SET INDEXES 

2 1 0 

777767 


LAW -11 

/ - 7 

0^21 1 

04001? 


DAC 12 

/TOR COUNTING 

0 4 2 ! 2 

777777 


LAW -1 

/ADDRESS 

04213 

344706 


TAD ST6WRO 

/-I 

04 214 

040?13 


DAC 13 

/FOR INDIRECTS 

04215 

220013 

ST7LP 

LAC* 13 

/GET NEXT WORD 

04216 

06001 0 


DAC* 10 

/STORE IT 

04217 

4400H 


1S2 ll 

/BUFFER FULL 

04220 

741000 


SKP 

/NO 

04221 

604225 


JMP .+4 

/BUFFER FULL, EXIT 

04222 

44001? 


IS2 12 

/DONF 7 WORDS 

04223 

604215 


JMP ST7LP 

/NO GET NEXT 

04224 

604210 


JMP ST9WRD+2 

/RESFT FOR NEXT 7 

04225 

206100 


LAC (U 

04226 

344206 


TAD ST9WRD 

/ENTER *7 

04227 

044206 


DAC ST9WRD 

/TO EXIT OVER DATA 

04230 

624706 

/ 

JMP* ST9WRD 

/GET OUT 



/ 

.EJECT 






/GENFRaU 

AM I NCREMENT I NG 

character pattfrn 



/IF AC = 

SKP GPD PARITY -fi 

00 CODES OK 



/IF AC = 

SNA EVEN PARITY 

throw 000 away xor parity with 600000 

SMJ>.T 1 

6 £ 4 2 3 1 

/ 

GEN I NC 

JMP . 


0 4 23? 

0 4 4 2 7 f 


DAC GE.NSKP 

/STORE SKIP OR SNA 

0^233 

5 4 6 ? 7 7 


SAD (S*P 

/IF AC : SKP 

0 4 2 3 4 

7 5 0 0 0 0 


CLA 

/FIRST CHAR IS 00 

W 4235 

7 4 02?!^ 


SEA 

/IF AC = SNA 

J4?36 

206005 


LAC (1 

/FIRST CHAR I 0 1 

a 4 2 3 7 

044274 


DAC nxchaR 

/FIRST CHARACTER 

34 240 

740200 


SEA 


0 4J41 

206^76 


LAC (6^0003 


04242 

04440* 


DAC INCXOR 


0 4 2 4 3 

104275 


JMS SETSTR 

/SET UP 10 AND 11 

0 0 2 4 4 

204274 

GENWfiQ 

lac NXCHAR 

/get next character 

0 4 2 4 5 

74401 0 


RCl 

/move it Into middle 6 bits 

00 246 

742010 


rtl 

/OF THE WORD 

0 4 2 4 7 

742010 


rtl i RTL; 

RAL 

00 250 

742010 




0 4 251 

740010 




04252 

040012 


DAC 12 

/SAVE IT 

0 4 253 

104264 


JMS INCRIT 

/generate next 

0 4 254 

340012 


Tad 12 

/COMBINE WITH 1 AND 2 

00255 

104354 


JMS GT9PAR 


00256 

244406 


XOR INCXOR 

/IN CASE EVN 

04257 

060010 


DAC» 10 

/STORE IN BUFFER 

04260 

104264 


JMS INCRIT 

/FIRST CHAR NEXT WORD 

04261 

440011 


IS? 11 

/FILLED BUFFER 

04?62 

604244 


JMP GENWRD 

/NO 

00260 

624231 


JMP # GFNINC 

/buffer full exit 



// 




.EJECT 



1 R F L I 9 


PACE 56 


0*264 604264 

0*265 204774 

0*266 346005 

0*267 506101 

0^270 741200 

0 /: 2 7 1 206' ? 05 

0 *27 2 04 4 2 7 4 

04273 624264 

04074 000000 


04275 604275 

04276 200140 

04277 740200 

04300 200143 

04301 741200 

04302 774054 

04303 0400H 

04304 206046 

04305 040010 

04306 624275 


I NCR I T JMP . 

LAC NXCHAR /LAST CHARACTER 

TAD (1 / + 1 

AND (77 /MASK 6 BITS 

CENSKP SNA'Skp /SNA EVEN PARITY - SKP ODD PARITY 

LAC (1 /00 CODE ILLEGAL EVEN PARITY 

OAC NXCHAR /SAyF FOR NEXT TIME 

JHP« INCRIT /EXIT AC = CHAR 

NXCHAR 0 /TO SAVE CHARACTER 

/ 

/ 

/SET UP 10 AND 1L STORE PATTERN 
/ 

SETSTfi JMP . 

Lac record 

SHA 

LAC WRTLEN 
SNA 

LAW -MAXLEN 

DAc 11 /WORD COUNT TO 11 

LAC (WRBUF-1 

OAC 10 /BUFFER-1 TO 10 

JMP # SETSTR /EXIT 

/ 


.EJECT 






/ST PM' - r 

RO i NO ^ A L F WOR 

0 PATTFRN 

:«30 7 

A ?■ 4 3 (/. 7 

S T H A L p 

JMP . 

/FNTR 

Ji*S 1 0 

1 CT 4 2 7 S 


JMS setstr 

/GFT ADR A 0 wr 

0/31 1 

7 4 4 


CLL 

/TO INDICATE WORM w0R02 

0 ^31? 

777767 


LAW -11. 


■ V. 31 3 

0 4 0 _> . 1 2 


DAP 1 2 

/TO COUNT 9 

0 3 1 4 

2 ^ 0 7 


LAT STHALF 


0 4 315 

0 4 0 0 1 7 


DAC 13 

/TO GET LAST 8 

04316 

2?4307 


LAC* STHALF 

/GET FIRST 

0 4 317 

74 1^-00 


SKP 

/SKP FOR FIRST WORD 

0 4 3 ? 0 

220*17 

SHLOOP 

LAC* 13 


04 3? 1 

740002 


CML 

/COMP L = 1 FIRST L = 0 2ND WORD 

0 0 3 2 2 

740400 


SNL 

/FIRST WORD OF PAIR 

003?3 

604334 


JMP STHWD2 

/NO 2ND 

4 4 3 ? 4 

040014 


DAC 14 

/SAVF FIRST WRD 

00 325 

0 6 0 0 1 p ' 


DAC* 15* 

/PUT IT IN BUFFER 

00 3? 6 

440011 

STM 1 N C 

IS? 11 

/BUFFER FULL 

04 32 7 

741000 


SKP 

/NO 

00 330 

604350 


JMP STHXIT 

/EXIT ST HALF 

D4331 

440012 


IS? 12 

/DONF 9 

00-332 

6 0 4 7 2 r/ 


JMP SHLOOP 

/NO 

00 333 

604312 


JMP ST HALF + 3 

/RESTORE 13 GET 1 OF 9 



/ 2ND WORD 

OF PAIR IS AC 

COMBINE halfs 

00 334 

0 4 0 0 1 c 

STHW02 

DAC 15 

/SAVE 2ND OF PAIR 

00335 

50610? 


AMO (200377 

/MASK 2ND CHAR AND 

04336 

040016 


DAC 16 

/SAVF IT 

00 337 

200014 


LAC 14 

/GET 1ST OF PAIR 

00-340 

506107 


AND (577400 

/MASK 1ST CHAR AND 

00341 

340016 


TAD 16 

/COMBINE WITH 2ND 

04342 

060010 


DAC* 10 

/PUT IT IN BUFFER 

0 0 3 4 3 

440011 


IS? 11 

/BUFFER FULL 

04344 

741000 


SKP 

/NO 

04345 

604350 


JMP STHXIT 

/YES EXIT 

04346 

200015 


LAC 15 

/GET 2ND WORD 

04347 

604325 


JMP STHINC-1 

/STORE AND COUNT 

04350 

204307 

STHX I T 

LAC STHALF 

/ENTR 

04351 

346100 


TAD (11 

/ + 9 

04352 

044307 


DAC STHALF 

/FOR EXIT 

04353 

624307 


JMP* STHALF 




L T9 


PAGE 




/GENERATE 

PARITY (OOO) 

FOR BOTH 8 RIT CHAR IN AC 

04 354 

604354 

G T 9 P A R 

JMP . 



04355 

5061 04 


AND (177777 


/CLR UPPER 2 8 ITS (PARITY) 

04356 

0 4 4 4 0/; 


0 AC SVPWRD 


/SAVE WORD 

04357 

50 6 ■’75 


AND (177400 


/MASK FIRST CHAR 

04360 

104371 


JMS GETPBL 


/GFT ITS PARITY IN LINK 

0 4 361 

740020 


RAR 

/MOVF 

TO 1ST CHAR PBIT 

04362 

344404 


TAD SVPWRD 


/+ WORO 

04363 

044404 


0 AC SVPWRD 


/SAVE AGAIN 

04364 

506053 


AND (377 

/MASK 

2ND CHAR 

04365 

104371 


JMS GETPBL 


/GET ITS PARITY IN LINK 

04366 

742020 


RTR 

/POSITION TO 2ND CHAR PBIT 

04367 

344404 


TAD SVPWRD 


/+ REST OF WORD 

04370 

624354 


JMP* GT9PAR 


/EXIT 

04371 

604371 

GETPRL 

JMP . 



04372 

144405 


D2M PARCTR 


/CLR BIT CTR 

04373 

744020 


RCR 

/PUT A 

BIT IN LINK 

04374 

741400 


SZL 

/IS IT 

A 1 

04375 

444405 


I $Z PARCTR 


/YES *1 NUMBER BIT 3 

04376 

740200 


SZA 

/DONE 

ALL 

04377 

604373 


JMP .-4 

/NO 


04400 

204405 


LAC PARCTR 


/EXIT 

04401 

740020 


RAR 

/WITH 

LINK 

04402 

750002 


CML ! CL A 

/= 000 

OR EVEN AC = 0 

04403 

624371 


JMP* GETPBL 



04404 

000000 

SVPWRD 

0 



04405 

000000 

P ARCTR 

0 



04406 

000000 

INCXOR 

0 




, EOT 



/ TC5 9 DATA RELIABILITY (TAPE 6) OE 9 TRACK 
/READ PORTION TC59 DATA RELIABILITY TEST 
/AC S wS 6 AND 7 WERE TO INDICATE 
/READ MODE AT START 
/SwS = 99 IS NON STOP 

/sws = 01 IS start stop 

/SWS = 19 OR 11 IS start STOP NON STOP RANDOM 
/ 


04407 

604407 

READIT 

JMP . 


0*410! 

2001 40 


LAC RECORD 


04411 

740200 


S?A 


04 412 

604416 


JMP , + 4 


04413 

2001.13 


LAC STPLEN 

/SET UP INITIAL 

04414 

0401 4 5 


OAC REAOLN 

/READ LENGTH 

04 415 

040146 


DAC COMPLN 

/and compare length 

04 41 6 

777775 


LAW -3 


04 41.7 

044725 


DAC RDPASS 

/READ PASS COUNTER 

34420 

2061 05 


LAC (R0BUF1-1 

/RECORD INITIALLY 

04 4 21 

040147 


OAC READNX 

/READ INTO BUFFERi 

04422 

2061 05 


LAC (R0BUF2-1 

/EVERY OTHER RECORD 

04423 

040150 


DAC COMPNX 

/ALTERNATES BUE i-BUE 2 

04424 

707321 

RDSTPO 

MTCR 


04425 

604424 


JMP ,-t 

/WAIT CU READY 

04426 

206106 


LAC (2400 

/READ ENI 

04427 

340114 


TAD COMAND 

/* ORIVE AND DENSITY 

04 4 30 

707326 


MTLC 

/LOAD COMMAND 

04431 

777777 


LAW -i 

/set tape stopped 

04432 

044726 


DAC RSTPFL 

/delete nonstop compare 

04 433 

707301 


MTTR 

/WAIT DRIVE READY 

04434 

604433 


JMP .-1 


04435 

2001 47 

READGO 

LAC READNX 

/SET UP CA AND 

04436 

040033 


DAC CALOC 

/WC FOR NEXT BLOCK 

04437 

20014S 


LAC REAOLN 

/TO PE READ IN 

04440 

040032 


DAC WCLOC 


04 44 1 

707304 


MTGO 

/START OR CONTINUE 

04 442 

444726 


IS? RSTPFL 

/going NONSTOP 

04443 

104575 

NSCOMP 

JMS COOATA 

/YES COMPARE LAST BLOCK 

04 44 4 

103627 


JMS HAITI 

/WAIT FOR INTERRUPT 

04445 

741100 


SPA 

/EE = 1 

04446 

604527 


JMP ROFRRO 

/YES SEE IE EOT 

04447 

750004 


LAS 


04450 

740020 


PAR 


04 451 

740400 


SNL 


04452 

604457 


JMP RTSSTP 


04453 

203641 


LAC STATRD 


04454 

50601* 


AND (40(1 


04 455 

740200 


S ? A 


04 456 

605004 


JMP RNOTAP 


04457 

200110 

RTSSTP 

LAC REAOMO 

/GET READ MODE BITS 

0 4 4 60 

740200 


S ? A 

/NON STOP 

04461 

604473 


JMP RDSTPC 

/NO 

04 462 

144726 


OZM RSTPFL 

/CLR STOPPED flag 

04463 

70732? 


M T A F 

/and mtf 

04464 

104727 


JMS RO I NCR 

/ 1 NCR FOR NEXT BLOCK 

04465 

200140 


LAC RECORD 




PAGE 6ft 


U9 


$ 4 46 6 

540141 


SAD L A SRCR 


04467 

604471 


JMP ROEXIT 


04470 

604 4 3*. 


JMP READGO 

/GO AGAIN COMPARE THIS ONE 

04471 

104575 

FOE X I T 

JMS CODATA 


04472 

624407 

/ 

JMP a READIT 



EJECT 



6 i 4 7 7 

5(7 6 .' 1 *- 

POST -’C AN!' («■’■»(» 

/MASK READ RNOm STOP 

J -'474 

7 4 31? 2 

S? A 

/USE SETTLE DOWN 

v) / 4 7 5 

6 0 £ 5 3 4 

JMP p^nRnS 

/NO RANDOM 

'?■ 4 4 7 6 

1 0 4 7 ? ? 

JMS RDINCR 

/FOR NEXT RLOCM 

/ 4 4 7 7 

104^7- 

JMS COO A T A 

/compare this one 

5 £4 0 

2 ? HI 4 -• 

LAC RECORD 


74 501 

5 4 :/ 1 4 1 

SAD L A S R C R 


/: 4 5 0 7 

6244^7 

JMEo READIT 


0-4503 

6044?4 

JMP RQSTPO 

/GO AGAIN 

0 6 50 4 

10303 ? 

RNDPOS JMS RANGEN 

/GET RNDOM 

04 505 

506«5«* 

AND (177 

/MASK 0 TO 127 

0 4 506 

7 4 0 ?■. 2 1 

CM A 

/MAKE -1 TO -128 

04 507 

0 4 3 7 1 6 

DAC MTIMFR 

/TO COUNT MIILISEC 

0 6 5 5 0 

346026 

TAD (4 


0 4 511 

7 4 010 ?/ 

SMA 

/NUMBER 4 OR LESS 

0451 0 

604462 

JMP RTSSTP +3 

/YES GO NONSTOP 

04513 

777263 

LAW -MSEC 

/TO COUNT 1 MILLISEC 

04 51 4 

043317 

DAC MT1MER+1 


0651 5 

443*17 

IS? MTIMER +1 

/TIME 1 MILLISEC. 

04516 

6 0 4 5 1 5 

JMP .-1 


06 51 7 

443*16 

IS? MTIMFR 

/WAITED ALL 

0 4 5 ? 0 

604514 

JMP ,-6 

/NO 

045?1 

604476 

JMP ROSTPC+3 

/COMPARE DATA START AGAIN 



/MAG TAPF STATUS INDICATES 

ERR SEE IE EOT 

045?2 

506054 

poerro and (373600 

/MASK OFE EOT 

04523 

741200 

SNA 

/othfrs =1 

06524 

605004 

JMP rnotap 

/NO MUST BE EOT 

06525 

750004 

LAS 

/GET SWS 

04526 

506037 

AND (12000 


06527 

741200 

SNA 

/type all read errs 

04530 

60454* 

JMP RTSREC 

/NO SEE IF RECOVR SELECTED 

04531 

206107 

LAC (TEXT15 


04532 

105232 

JMS TYPET 

/RD status error 

0 4533 

707*12 

MTRC 


0 4 5 3 4 

105312 

JMS TYPEC 

/TYPE COMMAND 

04535 

203641 

LAC STATRD 


04536 

103646 

JMS SPTCON 

/AND STATUS 

04537 

200140 

LAC RECORD 


04540 

103646 

JMS SPTCON 

/and record number 

04 54 1 

2001 45 

LAC RE4DLN 


04542 

103646 

JMS SPTCON 

/AND LENGTH 


. EJECT 



JRFL T 9 


PAGE 62 


ttt 




/ +1 REA 

0 ERRS IF FIRST ERR PASS 

0*543 

77777- 

RTSPEC 

LAW - 3 


0< C 5 4 4 

5447?- 


Sap RD D ASS 

/FIRST PASS ERR 

.?*545 

4401 55 


IS? ROERRS 

/YES + 1 RD ERRS 

045*6 

1047?? 


JMS RQ J NCR 

/incr set up compare 

04547 

1P457S 


JMS COOATA 

/COMPARE DATA 

454550 

75000* 


LAS 


04551 

506014 


AND (2000 


84552 

74120P 


SNA 

/DELETE all RECORORY 

84553 

604566 


JMP RPASN3 

/NO TRY AG, 

84554 

777775 

RPASS3 

LAW -3 


84555 

044725 


0 AC ROPASS 

/RESET PASS COUNTER 

04556 

203641 


LAC STATRD 


04557 

506015 


AND (4000 


04560 

740200 


SZA 

/IS END OF T APE = 1 

04561 

605006 


JHP RNDTAP+2 

/YES TYPE EOT 

04562 

200140 


LAC RECORD 


04563 

540141 


SAD LASRCR 


04564 

624407 


JMP* READIT 


04565 

604424 


JMP RQSTPD 

/ALWAYS STOP TAPE ON 



/SEE IF 

ALL REREADS HAVE BEEN 

MADE 

04566 

444725 

RPASN3 

IS? rdpass 

/DONE ALL 1 

04567 

604572 


JMP , +3 

/NO 

04570 

440154 


IS? nrread 

/♦I NON REC READ 

04571 

604554 


JMP RPASS3 

/DO NEXT RECORD 

04572 

104762 


JMS SETBAK 

/PUT POINT! 

04573 

104770 


JMS BACKl 

/BACK UP 

04574 

604424 


JMP RDSTPD 

/GO AGAIN 


.EJECT 


IS ONE 


J 



/O'" AR‘ *U|T£ n, IF r E :. AG.4 1-ST OAT* ^iO 


' • 5 ? 5 

6 4 - 7 '■ 

rnriA r i 

Jmp . 


; / t> 7 A 
.'577 

7 7 7 7 7 7 


H?* Ch -7TI G + l 
l * - 1 

/a r POOR COUNTS-; 

C - 6 v‘ 1 

? ! '■ A, i ■ 4 >=• 


n&c cf'p^LG 

1 AC (WJRUF-i 

/ S f T h F A n F R NOT T vOfr. 

■ 60? 

■ ' 6 03 

? ''*• 0 - 16" 


n 4 r i ,7 

i A C C;'} '■'■OK >; 

/TO OFT WO C OS WRITTEN 

0 - 6 0 4 

■’ 6 « 5 

? C 1 3 1 4 (• 


hag 11 

LAC CO* PL N 

/TO OFT WORDS RE at, 

0'‘606 

* 4 (4 7 1 ? 


HAC 1 ? 

/TO COUNT SAME 

/. s 6 0 7 

?? 0 Ci :• 

COL 00? 

LAC* 1 / 

/GET WORT, WRITTEN 

610 

0 4 4 7 ? 7 


oac cocoon 

/SAVE FOR type OUT 

'■ 6 1 1 

? ? 0 '/ 1 1 


LAC* 11 

/GET WORD READ 

*'■61? 

6 4 4 7 £> 7 


SAP COGOOD 

/ARE TH£Y= 

4 4 61 3 

7 4 1,-07 


SKP 

/YES 

; ' 4 614 

60 4 6 4 v 


JMP CQrRPo 

/COUuT OR TYPE ERRORS 

•I / 6 1 5 

4 4 0 0 1 9 

CQINCP 

IS? 12 

/DONE ALL WORDS 

<- 616 

67 4 4 v- 7 


JMP COLOOP 

/NO COMPARE NEXT 

/ 61 7 

904 7po 


LAC CFPrLG+l 

/GET fRROR COUNT 

'4 ^ 6 ? 7 

74190? 


S N A 

/ANY ERRORS 

• / / 6 ?l 
’ 46?? 

6 ? 4 K 7 ,; 

77 77 7 s ' 


JMP* COOATA 

LAw -7 

/NO EXIT 

■■ ■ 4 6 ? 3 

5447?" 


SAP PQPASS 

/FIRST PASS 

•'* ^ 6 ? 4 

440157 


IS? CV|P£PP 

/YES *1 COMPARE errors 

4 6 5 5 

0 4 6?6 
/ 4 6 ? 7 

? ? 3 A 4 1 

50 6 c 5 

7 4 19 7 , > 


LAC ST&TRD 

A NO ( 373600 

SNA 

/get status this record 

0*630 

44015? 


IS? PNOSTA 

/NO EF +1 COMPARE 

0 6 7 1.. 

2046 7 = 


LAC COOATA 

/GET entr aoorss 

.'467? 

50 61 1 0 


AND (17777 

/mask adprs bits 

(44677 

546111 


SAP (NSCOMP+l 

/entered NONSTOP 

>J 4 6 34 

74 1000. 


SKP 

/YES 

14 4 6 3 5 

6 ? 4 6 7 5 


JMP* COOATA 

/NOT NONSTP ENTER EXIT 

0 4-636 

104770 


JMS PACK1 

/BACKUP TAPE IS 

0 4 6 3 7 

604550 

/ 

JMP RPASS3-4 

.EJECT 

/l RECORD PAST FAILED 



/DATA 010 NOT COMPARE SAVE INCR TEST FOR TYPE 


A f 

0 4 4 

roF PRO 

DAC 

CqpEAO 

/SAVE WORD READ 


7 C ? 0 4 


LAS 


/GET SWS 

■ r- ( 4 2 

4 4 4 7 2 7 


IS? 

CERFLG+ 1 

/*1 ERRS THIS BLOCK 

1 4|541 

506/ 3 7 


A NO 

( 10000 


1 . : A, 4 4 

7417? - 


SNA 


/Typc ALL READ ERROR 

’ ''645 

6 0 4 * w w . 


JMP 

CO I NCR 

/NO 

,! '-644 

444771 


IS ? 

C E 3 F L G 

/HDR TYPFD ALREADY 

4 6 4 7 

6 0 4 6 7 


JMP 

COTYOA 

/YES TYPE DATA 

0"650 

203641 


LAO 

STATRO 


74651 

7 4110 "• 


SPA 



0465? 

6-7146 74 


JMP 

COTYOA-2 


04653 

20472* 


LAC 

RSTPFL 


04654 

74 020s? 


SZA 


/GOING NONSTOP 

04655 

604*62 


JMP 

. +5 

/NO 

04656 

777777 


L AW 

-1 


04657 

0 4 0 0 3 2 


PAC 

WCLOC 

/STOP OATA 

04660 

2**1 12 


LAC 

(17776 

/KEEP OUT 

0 4 6 61 

040033 


OAC 

CAL OC 

/LAST WORD 

04 6 6 2 

206113 


LAC 

( T E X T 1 6 

/READ DATA ERROR 

04663 

105232 


JMS 

TYPE! 

/COMO STATUS record length 

04 664 

707312 


M T P C 


0 4 665 

10531? 


JMS 

TYPEC 

/TYPE COMMAND 

04666 

203641 


LAC 

STATRO 


04667 

103*4 * 


JMS 

CPTCON 

/typf status 

04670 

2001 51 


LAC 

CORECRO 

/RECORD NUMBER 

0 4 6 71 

103*4* 


JMS 

SPTCON 


0 4 6 7 2 

2001 4* 


LAC 

COMPLN 

/and RECORD LENTH 

04 673 

10364* 


JMS 

SPTCON 


04674 

206114 


LAC 

( T E X T 1 7 

/DATA ADDRESS 

0 4 6 7 5 

105232 


JMS 

typet 


04676 

777774 

cotyoa 

LAW 

-4 


04677 

3447pi 


TAD 

CERFLG 


04700 

74010? 


SMA 


/DONF 4 DATA TYPEOUTS 

04701 

604*15 


JMP 

CO I NCR 

/YES 

04 7P2 

206115 


LAC 

(TFXTH 

/CAR RET 

0470 ;; 

105232 


JMS 

TYPET 

/LINE FEED LINE FEED 

04704 

204773 


LAC 

COGOOD 


04 705 

105312 


JMS 

TYPEC 

/TYPF DATA WRITTEN 

04 70,6 

2 0 0 v 1 / 


LAC 

1 0 


04707 

1 .7: 7 A 4 A 


JMS 

SPTCON 

/AND buffer ADDRESS 

0 4 710 

20*11* 


LAC 

( T r X T 1 8 

/WRITTEN CARRET 

0 4 711 

105232 


JMS 

TYPET 


0 4 71? 

204724 


LAC 

COREAD 


0 4 713 

105312 


JMS 

TYPEC 

/TYPE DATA READ 

74 714 

207! -M 1 


LAC 

11 


0 4, 7 1 5 

103*4* 


JMS 

SPTCON 

/AND BUFFER ADDRESS 

0 4 716 

?0*i 1 7 


LAC 

( T F X T 1 9 


0 4 71 7 

1*5232 


JMS 

TYPET 

/READ CARRET IF 

0 4-750 

6 0 4 6 1 u 


JMP 

CO I NCR 





.EJECT 




7 A 7 7 1 

/ 0 r‘ ' /= - 

r f. - r ' ;; 

„ 

7? 2 

/• a ‘ /; 



iS 77 3 

A A. A \,o> 

r- n O i 0 

1/ 

■ 7 7 4 

/ P .4 - :*■ : • 

r 1£- f- r. 

• 

9 776 


7{jPA^S 


' •• 7 7 6 


" 5 T P L 
/ S ^ T ij P 

POINTERS fop NFXT 

' >-7? 7 

634797 

0 ! NCR 

JMP . 

0 4 7 7 7 

7 A A 1 4 7 


LAC ofADNX 

0*731 

1 7 


PAD 17 

7 4 7 3 7 

2 0 3 1 5 9 


LAC COMPNX 

i/. 7 .7 3 

y) A 3 -5 4 7 


DAT REAONX 

0 *'774 

p P 0 ■' 1 7 


LAC 17 

4 ■■ 7 35 

•3 4 315 


DAP COMPNX 

v 1 ! 4 7 7 6 

? 3 3 2 4 - 


LAC PEAQLN 

i: 4 73 7 

0401 4 A 


DAC CQmPlN 

* ^ 7 4 « 

7 301 4 </• 


lac record 

v: 4 7 4 1 

040151 


DAC COPECRn 

^74? 

4 4 31 4 ■? 


IS? record 

iA 4 7 4 3 

7 >7 Pi 1 * 


lac PLKINC 

7! 4 7 4 4 

7 4 17 0 '■* 


SNA 

3 7. 7 4 * 

674777 

/ R F C 0 R 0 

JMP* ROINCR 
length is CHANG I NG 

34 746 

3*0145 


tad readln 

3 4 7 4 7 

0 4 01 4 * 


DAc READLN 

34753 

346751 


TAP (MINLEN 

? 475j 

74 01 0.7 


SNA 

0 4 7*7 

6747*7 


JMp RESTRL 

3 4 7 5 3 

206*5? 


LAC { MA XLEN + 1 

3.' 754 

34014* 


tad readln 

34 755 

7 4 013 ■? 


SMA 

347*6 

624727 


JMP* R n I tv c R 

347*7 

200113 

PESTRL 

LAC STPLFN 

0 4 7 6 3 

0401 45 


DAC READLN 

3 4 761 

624777 

/ 

JMP* rdincr 

.EJECT 


/ h F i ^ t p VUT TV=n-;ij 
/TO COUNT oat a E -FAR 

/OATa aQ»0 »pittpk 

/INC 0 WORD RF a n 
/ffap PaSS cnij-jri 
/TAPC not MOVING 5 t 
rf co c n 

/SHUFFLE 

/SUFFFP ADDRESSES 

/FOR RF AD 

/COMPARE 


/read length 

/TO COMPARE LENGTH 
/RECORD 

/TO COMPARE RECORD 
/*1 FOR NEXT rfcord 

/GET tENGT'- 

/LENGTh changing 

/NO FXIT 
COUNT IT 

/LFNGTh * OR- 1 NCR 
/FOR NEXT RECORD 

/LENGTH LESS THAN MlN 
/YES RESET TO MAX 
/MAXIMUM +1 
/-CURRENT 

/EXCFEO MAX RESET TO 
/IENTH OK 
/STARTING IENTH 
/RACK TO INITIAL 
/EXIT 



• ' 7 « ? 

6 0 4 7 A 2 

/SFT RRCORn POINTERS SACK 
SETBAK JMP . 

BUFFERS left alone 

i' 7' 3 

2 S’* 3 ! 4 * 

LAC CO^PLN 


' '77-4 

0 4 ;*! i 4 * 

D AC READLN 

/RESET READ LENGTH 

7A~ 

200151 

LAC CORECRO 


V 766 

3 4 014 v 

OAC RECORD 

/ANO RECORD NUMBER 

767 

6 ? 4 7 6 ? 

JMP* SETRAK 


7 6 7 7 0 

604770 

/RACK SPACE 1 RECORD SAME 
/OR CET BACK IN SYNC FOR 
RACK1 JMP . 

drive 

NONSTOP REREAD 

04 771 

707331 

MTTR 


06772 

604771 

JMP .-1 

/WAIT DRIVE READY 

04773 

236^7? 

LAC (7400 

/BACKSPACE 

04774 

343114 

TAD COMAND 

/+ ORIVE AND DENSITY 

06775 

7077?* 

MTLC 

/load COMMAND 

04776 

777777 

LAW -1 


04777 

04033? 

OAC WCLOC 

/I RECORD 

06 00 0 

707304 

MTGO 

/START TAPE 

0600! 

707741 

MTSE 


06002 

605001 

JMP .-1 

/WAIT FOR DONE 

06003 

624770 

JMP* SACK 1 

/EXIT 

06004 

104727 

/DRIVE HAS REACHED EOT IN 
RNDTAP jms rdincr 

READ TYPE OUT 

06 00 5 

104*75 

JMS COOAT A 


06006 

2061 2 P 

LAC ( T F X T 2 0 


0‘ 007 

105732 

JMS TYPET 


06010 

2061 21 

LAC (TEXT2 


060H 

1 05? 3? 

JMS TYRET 


0601 ? 

105^14 

JMS READMP 


06013 

624407 

JMP* READIT 

/ 

/DUMP READ ERROR COUNTERS 
READMP JMP , 


0601 4 

605014 


06015 

20010 * 

LAC ORVOFN 


0601 6 

742013 

RTl 


06 017 

7420-10 

RTL 


060?0 

10 5 3 4 1 

JMS TYiOCT 


06 0 21 

10770? 

JMS SP ACE 3 


!’.6 02? 

2 0 Pi 1 0 7 

LAC PATNUM 


06023 

105741 

- JMS TYIOCT 


0 6 0 24 

10370? 

JMS S d ACE 3 


06025 

2001 04 

LAC PARBT1 


06026 

742020 

RTR 


060 27 

7400?0 

RAP 


0 6 0 7 0 

105741 

JMS TYIOCT 


0 6 0 31 

2001 0* 

LAC ORVDEN 


0 6 03 2 

74??? , 

P TP 


0 6 03 3 

7 4 ? 7 ? '• 

RTR 


0 6 0 3 4 

7 4 ? ? ? £/ 

R T p 


06 035 

5 Z 6 0 0 7 

AND (3 



.EJECT 


/ 



-.= 0 3 6 

7 - 6 ■- 6 7 

t « n 

( L - C * j E %T y C/ 



•' ; 7 7 

4 /. 6 ’ 4 '■• 

- - H ! 

+ 1 




9 7 3 - ?,■' 

L 4 r 

p p i.j T y p 



1 0 4 1 

1 7 6 9 7 ;; 

j v, c 

TYRET 



04 p 

i " 

L AC 

Rf; A DM0 



3 1 ?} 4 3 

7 i 9 * 9 ' 

D T A 




/ ; 1 (f) A 4 

? a 9 ■ ■;? - 

prt 




-;*: *- 0 /, 5 

7 4 9 9 • 

RIP 




</ r 0 4 6 

74? 7?^ 

PIP 




■** 04 7 

74 9.9 >/ 

PTP 





6 0 6 • ' 0 7 

A^n 

< 3 



0 0 = l 

3 4 6 6 •••• 

TAD 

(LAC T v M00f 



■ A : l-l^p 

7-4 6 v 6 s 

DAC 

. +1. 



u* 3 

203674 

LAC 

TYmODE 



0 ‘-0=4 

105979 

JMC 

TYPCT 



v!‘ 06 5 

9 *7 0 1 4 v 

LAC 

RECORD 



0‘ : 0.= A 

105346 

jmr 

TYPECI 



/ r 0 5 7 

200106 

LAT 

RLTROL 



.';' 1 060 

7 4?''?/' 

R TP 




J r 061 

7 4? <■?■■• 

RTP 




J u 06? 

74?/:? 

R T P 




^ 063 

74979' 

R T P 




J‘ 06 4 

50 6 0 7 

AND 

(3 



3 P 065 

3 4 6-69 

TAD 

(LAC LThTBL 



^ 066 

0 4 5 ' 1 6 7 

0AC 

. + 1 



■'^■06 7 

2 0 3 A 1 ° 

LAC 

L TmTRL 



J £ -0 70 

I -95939 

JMS 

TYRET 



5 c 0 7 1 

2061 2‘ 

LAC 

( T E X T 2 1 

/READ 

ERROR = 

0 U 072 

105239 

JMS 

TYRET 



0 c: 0 7 3 

200155 

LAC 

R-DERRS 



0*874 

105 3. 4 6 

J M S 

T Y n E C ! 



06075 

206126 

LAC 

( TFXT22 

/NON 

RECOVERED 

0 *•" 0 7 6 

105939 

JMS 

TYRET 



0 *077 

9001 54 

LAC 

MRREAO 



0 c 100 

105346 

JMS 

TYDEC I 



0*101 

906127 

LAC 

( TEXT23 

/DATA 

ERRORS = 

0 6 1 0 9 

10593? 

JMS 

ty°et 



0 6103 

2001 5 7 

LAC 

CMPERR 



0 * I. Q 4 

1 0 5 7 4 6 

JMS 

tyoec I 



0 c i e 6 

?061 3* 

LAC 

( T E X T 2 A 

/DATA 

NO STAT 

0 K 1 0 6 

105239 

JMS 

TYRET 



0-107 

90015? 

LAC 

»\ «STa 



0 t: - 110 

1 05346 

JMS 

TYOEC I 



-’‘in 

777777 

LAW 

- 1 



•J c 112 

0401 56 

OAC 

PQEGT 



/ c 113 

625314 

JMPo 

R E A n M p 




/ 


.EJECT 



/WRI TE RECOVERY UTILIZING extended inter record 
/'IFF;; FITHFR ACTOR 7 REWRITES OR 
/AFTER E ACM WRITE ERROR IF STATISTICAL 




/RECOVFRv NOT SELECTED 




/USE! ONLY IF RE 40 PASS 

SELECTED 

0*114 

6 5 1 1 4 

YRC-RFC JMP . 


2*115 

77 7 ~ ?4 

LAW - 4 


0*116 

04011 * 

OAC WRPASS 

/TO COUNT 4 REWRITES 

3*117 

7 * 0 0 0 4 

LAS 


06120 

506056 

AND (1/0000 


0*121 

740200 

SZA 


0*5122 

605143 

JMP XRGRCD 


0*123 

104770 

JHS RACKl 

/BACK UP 1 RECORD 

as 1?4 

206131 

LAC (14400 

/WRITE XIRG 

0*125 

340114 

tad comand 

/+ DRIVE DENSITY PARITY 

0*126 

707321 

MTCR 


0S127 

605126 

JMP .-1 

/WAIT FOR CONTROL 

0*130 

707326 

MTLC 


0*131 

200143 

LAC WRTLEN 

/SET UP WC AND 

0 * 13 2 

040037 

DAC WCLOC 

/CURRENT ADDRESS 

0*133 

206046 

LAC (WRBUE-1 


0*134 

040033 

DAC CALOC 


0*135 

707301. 

M T TR 

/WAIT FOR DRIVE 

0*136 

6051 3* 

JMP .-1 


0*137 

7 0 7 "* 0 4 

HTCO 

/START WRITE XIRG 

3*140 

103627 

JMS W A I T I 

/WAIT FOR STATUS 

0*141 

7411 2^ 

SPA 

/ERROR 

0*14 2 

6 0 51 4 4 

JMP .+4 

/YES 

0*143 

777770 

XRGRCD LAW -10 


0*14 4 

0401 16 

DAT WRPASS 

/RESET 7 COUNTER 

0*145 

625114 

JMPo XRGREC 

/EXIT WRITE XIRG 

0*146 

506054 

AND (3T3600 

/MASK OFF EOT 

0*147 

741200 

SNA 

/SOME OTHER BIT 

0*150 

6051 43 

JMP XRGRCD 

/NOT EOT ONLY 

0 * 1 5 1 

4421 16 

ISZ WRPASS 

/DONE 4 XIRG 

0*152 

605117 

JMP XRGREC+3 

/NO DO 1 MORE 


/ 


. EJECT 





/ 





/JVP-nuT STiTi. 

S i'VfpV 4 X 

I ■> 

/• c 1 - '* 

< 

L AT 

{ T > X T 1 


• ’ J - 1. 4 

1 ' 6 ~ 7 7 

J * > 

t v ' r t 

/WRJTF STATUS rspfw 

•' • 1 *■; 6 

7 '* 7 ’• 1 > 

•v T k r 



4 - 1 S 

1 '- 6 ' 1 - 

JMC 

TV - 1 F r 

/TYPE COMMAND 

• : 3 C 7 

9 ■••' < r- 4 - 

LAC 

S T A T R o 


: ■’ ' i 6 0 

1 •'■ < A 4* 

JMS 

CP'P p. N; 

/ T YPr STATUS 

’MM 

? '* - ' 4 

LAC 

R£"OPD 


>l 16? 

1 0 < - 4 4 

JMS 

SPTCON 

/TYPE RECORD NUMPE° 

•■'■ 1 M 

9 0 A 4 < ? 

LAC 

( T E X T x 4 

/ 4 1 H EXTENDED Rfc 0 

^ ^ 4 

1 7 5 > 7 9 

JMS 

TYPE! 


' ‘165 

9 0 3 A 4 1 

LAC 

STaTRQ 


■* l - 166 

7-767 1 = 

AND 

( 4 0 0 0 


4 u X 6 7 

7 4 i 9 ;?. f* 

SNA 


/EOTrl 

/; 17 0 

6 '/ S 1 1 ^ 

JMF 

XRCREC+l 

/NO TRY 4 MORE 

/«* i7i 

9761 74 

LAC 

( 5 A 00 

/WRITE 

•‘ ‘ l 7 2 

7 4 0 1 £=* 

tad 

OHVOfN 

ZENO OF FILE 

■••= 1 7 

7 7 7 7 ? A 

mtlc 



A u 3 7 4 

7 4 0 0 '•>• 

MOP 



^-175 

7 7 7 « ?. 4 

MT CO 



■ ’ '"176 

1 7 7 6 9 7 

JMS 

W A I T I /WAIT 

EOF DONE 

0*- 177 

6?51 14 

JMP* 

XHGREC 

/EXIT 


/ 


.EJECT 



L I 7 


P AGL 7 51 


,-‘-'27 0 

6 f* S P P - 

GOPKWO 

JMP . 


/ C 2P1 

2 2 £ 1 4 


LAC RECORD 

/GET LAST WRITTEN 

■ ?0> 

3 4 £M 4 1 


DAC LASRCR 

/SAVE IT 

’ - 2 M 3 

2 ps 0 3 4 4 


LAC WRRECR 

/RESTORE TO FIRST 

•• p 2 P 4 

/: 4 0 1 4 ' 


DAC RECORD 


^ t- 20 5 

7 4 0 P 0 :? 


S? A 

/BLOCK 0 FIRST 

i'- ?P6 

A 0: S P 1 1 


JMP .+3 

/NO RACKSPACE 

7i. 2P7 

10 36 1-5 


JMS R£ W I NO 

/YES REWIND 

05210 

625 7 0 


JMP* GOgKWf) 

/EXIT 

0 C 21 1 

777777 


LAW -1 


0521 2 

340147 


tad record 

/TWO COMPLEMENT 

0 K 2 1. 3 

740001 


cm a 

/first record 

05 ? i 4 

340141 


TAD LASRCR 

/from last record=diff 

0 K 215 

740001 


CM A 

05216 

04003? 


DAC WCLOC 

/MAKF-EOR BACKUP 

0 C 21 7 

44023? 


IS? WCLOC 

/ 2 COMP ALSO 

0 C 2?0 

20607? 


LAC (7400 

/BKSPAC 

05221 

340114 


TAD COMANO 

/♦ DRIVE PAR DENS 

05222 

707321 


MTCR 


05223 

60572? 


JMP ,-t 

/WAIT C 4 READY 

05224 

707324 


MTLC 


05 225 

707301 


MTTR 


05226 

605725 


JMP .-1 

/WAIT DRIVE READY 

0 C 227 

707304 


MTGO 


05230 

103627 


JMS WAIT I 

/WAIT DONE 

05231 

625200 


JMP* GOSKWD 

/EXIT 



-'AM-' 7 1 

/ 

/TP5- n - * T A RELIABILITY Tf'ST TAor 7 OF 0 TwAC^ 
/ T Y P ~ OUT ROUTINES 

/ T V P r T OUTPUT 5-7 PACKED ASCII C w A p ACTFRS 
/ 


/< 5- £ 7 9 

6 3 5 7 > 

T Y R E T 

JMP 


* c ' ? 7 .3 

0 -1 5 < 3 7 


fUC 

C m 0 p T R 

1 97 A 

1 l~f ~"71 


L A W 

- i 

235 

n A 6 <1 ■/ 

/ 

TY PL UP 

0 AC 

P A I R C T 

■a - 036 

1 ? 5 7 5 4 

JMS 

CETCHR 

0 l - 03 7 

54 605 "* 


SAD 

(177 

i/ - ? 4$ 

67673? 


JMP O 

TYPF.T 


7 41?? * 


SNA 


£ ' 2 A 9 

635 2,36 


JMP 

TYPLUP 

24 3 

346731 


TAP 

( 2 70 

/ *244 

135246 


JMS 

T Y 1 ASC 

** 24 5 

635 736 


JMP 

TYPLUP 


/ 

/ 

/OUTPUT 1 ASCII CHARACTER AC = CHAR 


/ 


•w 24 6 

635246 

TY1A3C 

JMP . 

247 

700406 


T L 5 

-•! c 2 = PI 

7304 0-1 


TSF 

251 

6 0 5 2 5 


JMP .-1 

«^2S 2 

700402 


TCF 

K‘ 253 

625246 


J M p * TVIASF 


/ 

/ 


/UNPACK ROUTINE 5-7 ASCII 


/ 


3*254 

605254 

GETCHR 

JMP . 

752*5 

445310 


IS? PAIRCT 

3*256 

605270 


JMP NUCHAR 

U * 2 c 7 

225307 

MIPA Ifi 

LAC* CMOPTR 

0*26 0 

045705 


DAC LFHALF 

0*261 

445307 


IS? CMOPTR 

0*262 

225307 


LAC* CMOPTR 

0*26 3 

045306 


OAC RTMALF 

0*264 

445307 


IS? CMOPTR 

0*265 

04531? 


OAC PAIRCT 

0*26 6 

777773 


LAw 17773 

2*267 

04531 C 


OAC PAIRCT 

3*2 70 

77777? 

N'UCHAR 

LAW 1 777(7 

0*271 

■045311 


OAC TEMPER 

A* 27 2 

??5306 

GETBCK 

LAC PThALF 

7*2 73 

7 4 0 ■■■* 1 / 


PAL 

0* 274 

445311 


IS? TEMPER 

0*275 

6 ? 5 3 0 ? 


JMP getmre 

3 * ? 7 6 

506' /: 5? 


AND (177 

0 * 2 7 7 

625754 

/ 

JMP* GFTCHR 



•EJECT 



R? L I v 


f- 4 n E 7 ? 


?■ - 3 V 0 

7 A 5 a a. 

GETMRE 

DAC RTR AL E 

/'■ 3P1 

2P5335 


LAC LFHALE 

.' = 302 

7 4 * * i •:•' 


RAL 

“ 303 

0 4 5 3 £ 


DAC LEHALE 

0 = 304 

60527? 

/ 

LEHALE 

JMP GETBCK 

-5=305 

000 0 0 

0 

0 = 306 

000700 

ETHALF 

0 

0=307 

000000 

CMOPTR 

0 

0 = 310 

0 0 0 ? 0 0 

PAIRCT 

0 

0 = 311 

000000 

TEMPER 

/ 

0 



/ 

/TYPE 

/ 

TYPEC 

CONTENTS OCTAL 

0 = 312 

60531? 

JMP . 

0 = 313 

045421 


OAC TYPECT 

0 = 314 

742020 


RTR; RTR 

0 = 315 

7 4 2 0 2 0 



0 = 316 

7420?0 



0=317 

04542? 


DAC TYPECT + 1 

0 = 320 

7 4 2 0 ? 0 


rtr; RTR 

0 = 321 

742020 



0 = 322 

742020 



0 = 323 

105331 


JMS TY20CT 

0=324 

205422 


LAC TYPECT+1 

0=325 

105331 


JMS TY20CT 

0 = 326 

2254?1 


LAC TYPECT 

0=327 

175331 


JMS TY20CT 

0 = 330 

62531? 

/ 

JMP* TYPEC 



.EJECT 


RTR 


RTR 



A Cf 7 * 




/ T v p >- ? 

: • C T A 1 . 

Cm^ra C TPPS 



/ 



U" 371 

6 '■ V 7 ' 

T Y ? 0 ‘ T 

JMP 


‘ 7 7 p 

; 4 B 4 .= 


MAC 

TY^ECT+p 

• ; 

7 


ptp ; 

O A P 

-- 334 





/' 1 $ 7 " 

1 J -7 4 1 


JMS 

TYI OCT 

v-u- 335 

P ! ^ 4 JJ * 


L A c 

TY->ECT + 2 

? 1 3 3 7 

l / ? 4 < 


J M c 

TYI OCT 

■■ ‘ 3 4 J 

6 P S < 7 i 

/ 

JMP* 

T v ? 0 C T 



/ 

/ T Y P e t 
/ 

OCTAL 

CHARACTER 

' ’ 7 A 1 

6 v; 3^41 

TYi OCT 

JMP 


• 1 34? 

SP5770 


AND 

< 7 

-"U 543 

*<s , 5?7<- 


TAD 

( ?A0 

/■ *- 3 4 4 

1 7 5 ? 4 6 


JMS 

TV t ASC 

0 743 

6 ? 5 3 4 1 


JMP# 

TYlOCT 


/ 

/ 

/TYPE CONTENTS DECIMAL 

/ E N T E R AC = 18 

/BIT UNSIGNED NUMBER 

/CONVERT TO 6 DECIMAL DIGITS AND OUTPUT 
/ 


7 r 3 4 6 

675746 

TYOECI 

JMP 

, 

M p 3 4 7 

04641? 


DAC 

tyouot 

v? c 3*559 

77777 ? 


LAW 

-6 

3*1 

0 45711 


DAC 


0 c - ,3 5 ? 

£ 4 *> 4 2 1 


DAC 

TYPECT 

3 C 35.3 

2061 3*5 


LAC 

( QCHARA 

0*354 

O 4 5 4 2 ? 

TYPLUP 

DAC 

TYPECT+1 

(4 <=355 

1(76771 


JMS 

TYVERT 

0 t: 386 

0664?? 


DAC* 

TYPECT+1 

0-787 

777777 


LAW 

-1 

0 P 3*0 

3454?? 


TAD 

TYPECT+1 

0*3*1 

446311 


IS? 

TEMPER 

0*3*2 

605354 


JMP 

TYOLUP 

J c 36 3 

? ? 6 4 ? ? 

TYDOUT 

LAC* 

TYPECT+t 

7 ; c 3 6 4 

10574.6 


JMS 

TYI ASC 

0 * 365 

4464?? 


IS? 

TY°ECT+1 

3 c - 3 6 6 

4 4 6 4 ? 1 


IS? 

ty°ect 

3 r - 3 6 7 

6 •? ? ^ 6 7 


JMP 

T Y p 0 U T 

■0 C 3 70 

.6 P 6 4 6 


JMP# 

T V DEC I 


/ 

.EJECT 


PAGE 7« 


L I 7 


/CONVERT 1 QECIMAL CHARACTER TO ASCII 
/(TYQUOT) r 1 8-8 1 T UNSIGNED NUMBER 
/ 


0 = 371 

605771 

TYVERT 

JMP , 

0 = 3 7? 

20541? 


LAC TYQUOT 

/ = 373 

14541? 


OZM TYQUOT 

7=374 

740100 


SMA 

0=375 

60540? 


JMP TVRTPL 

0=376 

44541? 


tSZ TYQUOT 

0=377 

34613= 


TAD (-12 

0= 400 

74H00 


S°A 

06401 

605376 


JMP .-3 

0 = 402 

346136 

tvrtpl 

TAO (-12 

0 = 403 

741100 


SPA 

0 = 404 

605407 


JMP .+3 

0 = 405 

445412 


ISZ TYQUOT 

0 = 406 

60540? 


JMP TVRTPL 

35407 

3461 37 


TAO <12 

0 = 410 

345775 


TAD (260 

0=411 

625371 


JMP * TVVERT 

0 = 412 

000000 

f 

TYQUOT 

0 

0 = 413 

000000 

DCHAR1 

0 

06414 

000000 

n c H A R 2 

0 

0 = 415 

300000 

DCHAR3 

0 

0 = 416 

000000 

0CHAR4 

0 

0 = 417 

300000 

0CHAR5 

0 

05420 

000700 

DCHAR6 

0 

3 = 421 

000030 

TYPECT 

0 

0 = 422 

000000 


0 

0 = 4 ? 3 

000003 


0 




/ T 5 X T 1 

/ « ^ \ r r s 

tatus f rr 

1 n p 



/ c 0 m n s i 

aTIJS 




/ x y x < x x 

/ 

T r y 1 1 

> xxxxx 


A 4 P 4 

A 6 4 > 4 1 

.ASCI i 

<15><1 2><12> ’ HR I TP STATUS ERROR 

3 * 4 2 5 

25 ^ A 4 /. 




vj u 4P6 

446*1 - 




/ 1 4 ? 7 

5 2 0 - 5 4 6 




430 

5 ? 2 • ’ 3 ? 




0 c 43l 

452646 




0 -432 

20213? 




•• ■ 5 4 3 3 

25l?3* 




0^434 

510330 




/,-4 35 

000x00 




3 c 436 

064244 


.ASCI I 

<15><1 2>' COHO STATUS' 

0 c 4 3 7 

041636 




0 * 4 4 0 

4661 04 




••^'■44 1 

0 2 01 0 0 




•0^4 42 

516510 




0^-443 

15?25? 




A *-444 

514700 




0 r - 4 4 5 

000000 




A 5 4 4 6 

064?57 


• ASCII 

<1 5X1 2X177> 

.3 c 447 

700O0P 

/ 

/ 

/TEXT 2 

/end or 

TAPE 




/qrv pat 
/ 

TEXT2 

PAR OF N 

MODE RECROS LENGTH 

05 4 50 

0 6 4 ? 4 1 

• ASCI I 

<15><12><12>'FN0 OE TAPE ' 

0 MSI 

242634 




0*452 

4 2 1 '-4 1 1 




0 C 4 53 

7431 00 




0*454 

52203? 




0*455 

04?400 




05 4 56 

064250 


.ASCII 

<1 5><12>'DRV PAT PAP OEN ' 

0*457 

451254 




0*460 

202410 




0 * 4 6 1 

152100 




0*46? 

50203? 




0 c 4 6 3 

220210 




3 * 4 6 4 

426544 




0*465 

000000 




0 C 466 

466370 


.ASCII 

'MODE RECRDS LENGTH’ 

0*467 

442500 




0 c 4 7 0 

5121,30 




0*471 

351210 




0*472 

515011 




0*473 

442*34 




054 7 4 

436511 




0*475 

000000 




05476 

0 6 4 ? 4 4 


• ASCI I 

<15X12X40X177> 




/ 




/TEXT 3 
/ 

T E V T 3 

3 SPACED 

■’ *5 G* 0 

201P04 

.ASCII <40><40><40><i77> 

5 0 1 

07740<r 

/ 

/ 

/TEXT 4 

/ 

200 FOR 200 BPI 

0 C 502 

201006 

t EXT4 

• ASCII • 200 * <1777 

0 C 503 

230140 



0^504 

774000 



0 K 505 

000000 

/ 

•EJECT 


5*6 FOR 556 RPI 


5 0 6 
v> * 5 0 7 
.1 - 5 1 r / 
•* 1 Si 1 


■,V Si ? 

0 c 5 1 3 
0 E - 5 1 4 
0 l 515 


0* 51 6 
3 *■ 5 1. 7 
4*520 
0*521 


0*522 
0*523 
v? * 5 2 4 
0*525 


0*526 
0*5?7 
0*530 
0 K 5 3 1 


0*532 
0*533 
0*534 
05535 
0*536 
0 * 5 vl 7 


0*54 0 
0*54 1 


Af-f. 7 7 



20 1 0 0 7 
3 3314 <••* 
7 7 4 0 0 T* 
, 400/0 0 


20235^ 

352240 

203760 

000000 


202472 

352240 

203760 

000000 


202451 

642232 

203760 

000000 


2010 0 4 
020100 
31 1504 
046622 
473760 
000000 


701004 

032140 


/ T F X T S 
/ 

I^Ts .ASCII * 556* < 1 7 7 > 


/ 

/ 

/TEXT* 

/ 

T E XT 6 


500 FOR 500 HP I 

.ASCII ’ 800 ' < 1 7 7 > 


/ 

/ 

/TEXT 

/ 

TF.XT7 


NS T P FOR NONSTOP MODE 
.ASCII ’ NSTP ’ < l 7 7 > 


/ 

/ 

/TEXT 

/ 

TEXT8 


S S TP FOP START STOP MODE 
.ASCII ' SSTP ' < 1 7 7 > 


/ 

/ 

/TEXT 

/ 

TEXT9 


9 RNDM FOR RANDOM START STOP NONSTOP 
.ASCII ’ RNOM ' < 1 7 7 > 


/ 

/ 

/TYPE 

/ 

TYPM I N 


MINIMUM PECORD LENGTH IN CHARACTERS 
.ASCI I » 24 M I N ' < l 7 7 > 


/ 

/ 

/TYPr MAXIMUM RECORD LENGTH IN CHARACTERS 
/ 

TYPMAX .ASCII * 4008 MAX'<l77> 


5*2 

3£ 1 * 3 4 

3*3 

34662? 

S4 4 

3 4.3?3P 

345 

2 2 8 3 0 4 


/ 


.EJECT 


9 p A C- E 

79 



"546 

^00700 

5 

/type AVERAGE length min to w ax 

/ 

TYPAV 1 .ASCII * 2016 MIN TO 


0*547 

2 0 1 7 0 4 

KiX • <177> 

•/. v 550 

0 3 1 1 4 0 



0-551 

705544 



0*552 

046622 



7*553 

471019 



0*554 

447500 



0*555 

466033 



vJ*556 

077400 

/ 

/ 

/TYPE AVERAGE MAX TO MIN 


7*557 

201004 

/ * 

TYPAV2 . ASCI I ’ 2016 MAX TO 

M I N ' < 1 77> 

0 * 5 6 0 

031140 



0*561 

305544 



0*562 

046602 



0*563 

541012 



0*564 

447500 



05565 

466231 



0*566 

677400 

/ 

/ 

/TEXT 10 WRITE ERRORS = 

/ 

TEXT10 .ASCII <15><12> 'WRITE 


0*567 

06425? 

ERRORS^ > <177> 

0*570 

751222 



0*571 

522124 



8*572 

042644 



05573 

512372 



0^574 

25157? 



05575 

774000 



0*576 

000000 

/ 

/ 

/TEXT 11 CAR RET LINEFEED 
/ 

T E X T 1 1 .ASCII <1 5X12X1 77> 


0*577 

064257 


0*600 

700000 

/ 

/ 

/TEXT 12 RECOVERED AT 
/ 

TEXT12 .ASCII ’RECOVERED AT * 


0*601 

512130 

<177> 

0*600 

347654 



0*603 

426450 



0*604 

542100 



0*605 

406504 



0*606 

077400 




/ 

/ 


EJECT 


PACE 


• • 1 6 v* 7 

■3 6 4 2 5 ? 

' i A 1 

0 4 2 6 4 4 

/ ! t 

466C71 

612 

6 4 2 6 3 4 

/ 1 • 6 1 3 

52101/ 

•/} c 6 1 4 

2 4 0 6 1 7 

/ ^615 

51641? 

$ e 6 1 6 

420376 


0 ■= 6 1 7 

202611 

0 = 620 

151716 

0 r 6?l 

202577 

0 = 622 

244650 

0 = 623 

522131 

0 = 624 

620150 

0 = 625 

702511 

0 = 626 

146612 

0 = 627 

517760 

0 = 630 

000000 


0 = 631 

064241 

0=63 2 

251212 

0 = 633 

406104 

0 = 634 

051650 

0=635 

406512 

0 = 636 

551500 

0 = 637 

42645 ? 

0 = 640 

247644 

0 = 641 

064244 

0 = 642 

041636 

7 = 643 

466104 

0=644 

0 = 165 ? 

0 = 645 

406 = 1 ? 

0 = 646 

551 = 0 ? 

0 = 64 7 

5121 3 ? 

0=650 

347644 

0=6 = 1 

421011 

0=652 

442634 

0=6 = 3 

436=11 

0 = 6 54 

006=24 

0=6 = 5 

774000 

0=6 = 6 

00000 ? 


/TEXT 13 PERMANENT 8 A D / S P T 
/ 

T E X T 1 3 .ASCII <15><12> * PERMANENT RAQSPT »<±77> 


/ 

/ 

/TEXT 

/ 

TE*Ti 4 


14 


XIRG WRITTEN 4 TIMES 

.ASCII ’ XIRG WRITTEN 4 TIMES'<177> 


/ 

/ 

/TFXT 15 

/READ STATUS ERROR 

/COMO STATUS RECORO length 

/ 

T £ X T 1 5 .ASCII <15><12><12> ’READ STATUS ERROR’ 


.ASCII <1 5X1 2> f COMO STATUS RECORD LENGTH ’ <15X1 2X1 77> 


I ! 9 


PACE 


657 
i c 660 
0‘ 661 
0 = 662 
0 = 663 
3 = 6 6 4 
0 = 665 
0 = 666 
0 = 667 
0‘ 670 
0=671 
0=672 
•0 = 673 
0 = 6 7 4 
0 = 675 
0=676 
0 = 677 
0 = 700 
0=701 
0" 702 
0=703 
0 = 704 


0 = 7 05 
0 = 706 
0=707 
0 = 710 
0 = 711 
0 = 712 
0 = 713 
0 = 714 


0 7 1 5 
0=716 
0=717 
04 720 
0^721 
04722 


•0 = 723 
0 = 724 
0 = 7 25 
0 = 726 


4 1 


064241 

241212 

406104 

042202 

522224 

04264A 

512372 

206424 

202071 

746610 

201004 

051650 

40651? 

551500 

202450 

541636 

512104 

020230 

426350 

752220 

064257 

700000 


06424^ 
042202 
522024 
020100 
4061 10 
451246 
064257 
700000 


20257? 

244650 

522131 

606424 

774000 

000000 


202450 

540610 

064257 

700000 


/TEXT 16 READ DATA ERROR 
/ 

T E X T ! 6 .ASCII <15><12><12>'RE*D DATA ERPOP ' < 1 5 > < 1 2 > 


•ASCII ' COMO STATUS RECORD L ENG TH ' < 1 5 > < 1 2> < 1 7 7 > 


/ 

/ 

/TEXT 17 
/ 

T E XT 1 7 


DATA ADDRESS 

■ASCII <15><12>' DATA 


ADDRS*<15><12><177> 


/ 

/ 

/TEXT 

/ 

T£ X T 1 8 


18 


DATA WRITTEN 

• ASCII ' WRITTEN' <15X12><177> 


/ 

/ 

/ 

/TEXT 

/ 

TEXT i9 


1 9 


DATA READ 

•ASCII ' REA0'<15><12><177> 


* L ? v 
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0 t '7?7 

064241 

/ c -730 

25121 ? 

05 731 

4063 04 

3* 73? 

05070- 

733 

516477 

0 c 7 3 4 

700000 


/ 

/ 

/TEXT ?0 RE AO PASS 
/ 

TEXT253 .ASCII <l5><l2><t2>’PEA0 PASS*<177> 


/ 

/ 

/ 

.EJECT 



3 A g £ 83 


L T<? 




/TEXT 21 
/ 

T E X T 2 1 

PE 40 ERRORS = 

•A 6 735 

864252 

.ASCII <15X12>’REAQ ERRORS = '<177> 

05736 

242*0? 



06737 

421818 



05 740 

551244 



0^741 

47645? 



0 r 742 

3201 7? 



0“ 743 

283760 



0 C 744 

000000 

/ 

/ 

/TEXT 22 

NON RECOVERABLE : 

0 C 745 

064?5l 

TEXTP 2 

.ASCII <l5Xi2>»N0N RECOVERABLE: ' <i77> 

0 6 7 4 6 

647634 



0 C 747 

202450 



06750 

541636 



04751 

53213? 



0 C 752 

240604 



05753 

462127 



0 C 754 

577400 

/ 

/ 

/TEXT ?3 

OATA ERRORS : 

06755 

064250 

TEXT23 

.ASCII <15><12> 'OATA ERRORS: ' <177> 

06756 

440650 



04757 

405010 



06760 

551244 



06761 

476452 



0 c 762 

336776 

/ 

/ 

/TEXT 24 
/ 

TEXT24 

DATA ERR WITH NO STATUS ERR 

06763 

064250 

• ASCII <15><12> 1 DATA NO ST A TUS * ' < 1 77 > 

06764 

440650 



06765 

405011 



0 = 766 

647500 



06767 

516510 



06770 

15225? 



0 C 771 

515737 



04772 

700000 

/ 



000000 

• END 

06773 

000215 

*1 1 T 


0 C 774 

000370 

‘LIT 


04775 

000260 

‘LIT 


06776 

000007 

‘LIT 


0 C 777 

400000 

‘LIT 


05000 

017677 

*L I T 


06001 

000270 

‘LIT 


06002 

000271 

‘LIT 


06003 

000017 

»L I T 



■k c L ] 9 
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0*004 

00037* 

a! J T 

0*005 

008001 

“LIT 

•• 006 

000374 

"l I T 

3*007 

000083 

"LIT 

0 * 0 1 0 

000400 

»< IT 

0 '011 

000007 

"i IT 

. : *012 

001000 

"LI T 

*'•013 

001 408 

"L I T 

0*014 

007000 

"L IT 

0' 015 

004000 

"LIT 

0 * 0 1 6 

000740 

"LIT 

0*017 

017700 

"LIT 

0*020 

000010 

"LIT 

0*021 

800300 

"L I T 

0*022 

800060 

"L I T 

0*023 

006800 

"LIT 

0*074 

401107 

"L I T 

0*075 

000028 

"LI T 

0*026 

000004 

"L I T 

0*077 

000040 

"L I T 

0*030 

000100 

"l I T 

0*031 

000200 

"L I T 

0*032 

000126 

"LIT 

0*033 

001036 

"1. I T 

0*034 

776008 

"l I T 

0*035 

040000 

"L I T 

0*036 

020000 

"1. I T 

0*037 

010000 

"L I T 

0*040 

700000 

"LIT 

0*041 

003071 

"LIT 

0*042 

003061 

"LI T 

0*043 

700300 

»L I T 

0*044 

060000 

"L I T 

0*045 

004400 

"L I T 

0*046 

007777 

"LI T 

0*047 

440137 

"l I T 

0*050 

000177 

"L I T 

0*051 

000014 

"L I T 

0*052 

003725 

"L I T 

0*053 

000377 

"LIT 

0*054 

373680 

"LIT 

0*055 

005424 

"L I T 

0*056 

100000 

"LIT 

0*057 

203*00 

"L I T 

0 * 0*0 

703574 

"L I T 

0 * 0 6 1 

003574 

"LIT 

0 * 0*2 

703*10 

»L 1 T 

0*0*3 

005567 

"L I T 

0*064 

000127 

"LIT 

t. 0 £ 15 

805577 

"L i T 

0 ' 0*6 

005*01 

"LIT 

0*0*7 

005*07 

"LIT 

0*070 

005450 

"LIT 

0*871 

603634 

"LIT 

3 *072 

007408 

"L I T 




* *073 

M * 8 7 4 
0*075 
0 ' 076 
•0 *077 
0*100 
0 * 101 
0*100 
0*103 
0*104 
0*105 
0*106 
0*107 
0*11 0 
0*111 
0 * 112 
0*115 
0*114 
0*115 
0*116 
0*117 
0 * 1?0 
0*121 
0*122 
0*123 
0*124 
0*125 
0*126 
0*127 
0*130 
0*131 
0*132 
0*133 
0*134 
0*135 
0*136 
0*137 


8 5 


v) 0375 ? 

♦I IT 

741 ?0.f* 

♦LIT 

1 77400 

L IT 

600000 

^ i j f 

741000 

*L i T 

000011 

*L I T 

000077 

♦ LIT 

200377 

♦ LIT 

57740# 

*L IT 

177777 

♦ L I T 

013723 

♦LIT 

000400 

♦LIT 

005631 

♦ L l T 

01 7777 

♦LIT 

004444 

* L I T 

01 7776 

♦ L I T 

005657 

♦ LIT 

005705 

♦ L I T 

005577 

♦ L I T 

005715 

♦LIT 

005723 

♦LIT 

005727 

♦LIT 

005450 

♦L I T 

203600 

♦LIT 

203574 

♦ 1 . I T 

203610 

♦ L I T 

005735 

♦ I. I T 

005745 

♦ LIT 

005755 

♦L I T 

005763 

♦LIT 

014400 

♦ LIT 

005424 

♦LIT 

005*17 

♦ LIT 

005400 

♦ L I T 

005420 

♦L I T 

777766 

♦ 1. ! T 

000012 

♦ LIT 


' P r L T 9 
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~lLEns 

01075 

• L 1 - E n T 

010 4 7 

-> A C K 1 

04 770 

A C K 2 

03655 

■LA INC 

00115 

•OTR ! T 

100000 

: 4! nr 

■000033 

"a * end 

02027 

:o-lvE 

00101 

T 0 ■< V H T 

01027 

T E S F 1 G 

0 4 721 

CHAR T M 

01036 

CHGORV 

00767 

CHGPaT 

00636 

CHRPAR 

00653 

C L R A 1 L 

00737 

CLRTRL 

03072 

CMOPTR 

05307 

CMPERR 

00153 

COO AT A 

04575 

:OFRRO 

0 4 640 

COGOOD 

04723 

CO I NCR 

04615 

-OL.OOP 

0 4 60 7 

comand 

00114 

COMPI N 

00146 

:o"pnx 

00150 

COREAD 

04724 

COREOR 

00151 

coTynA 

04676 

JRI.FSP 

00466 

T T R D F X 

00724 

;trqmp 

02004 

CC H AR1 

05413 

!C»AR2 

05414 

.) C H A R 3 

05415 

IC-AR4 

05416 

>C W AP5 

05417 

1C“AR6 

05420 

■E' TYP 

03600 

iR 1 NCR 

000040 

'■ R V A D R 

01037 

■ R v D F N 

00105 

' R ’TAR 

007400 

RITAS 

007440, 

“2TAS 

007500 

R <TAR 

007540 

.R--T AS 

007600 

W ;TaB 

007640 

R <• T A R 

007700 

■RITAS 

007740 

h p t x 

020^4 

\ "TAP 

0356 5 

0 S F 1 G 

0 012 5 

R R 0 HR 

0 2 00 0 


: V v L ? 9 

D ArE 

- fi - n r 

03370 

- >. r C NS T 

001 ?3 

X CUT 

0051 0 

- MIST 

001?? 

Y i T.Mf} 

0011 ? 

*■ >\ T V F 

0010? 

I • 6 T X 

0057 ? 

’ 1 F • 1 1 NJ C 

04231 

■> F ’ PAT 

03 7?0 

*t v$KP 

0 4?70 

M WPn 

04 24 4 

, F T a n K 

05272 

•iETCHrt 

0 525 4 

i,r T MR F 

05300 

, f; r P P L 

04371 

; n i- v 0 0 

03750 

MMV01 

03 7 5 4 

* N >•' V P> 2 

03770 

V03 

03774 

• N " V 0 4 

04000 

; ! \| C V 0 5 

04004 

• U >" V fc <S 

040?0 

■MM V07 

040? 4 

i \ 0 n o 0 

04054 

• uonm 

0 4 0 60 

■n ':n(*2 

04074 

MMD03 

04100 

.•NO 0^4 

0 4 114 

■ N 0 [) pi 5 

04120 

SN0QPI6 

04134 

' . N 0 00 7 

04140 

MMKWD 

05200 

• 0 T S T 

00561 

• T 'PAR 

04354 

i v:fmt 

04264 

1 NORI C 

00621 

i NOTRL 

03604 

> NOW MO 

00604 

i IvMXOR 

04406 

1 R^cn 

03634 

-ASprp 

00141 

_ lj 

707324 

„F'-AI F 

05305 

- t -mrl 

03610 

V| A Y L F N 

003724 

'M \ t F N 

000014 

"O^R T T 

00107 

-O'/FIIP 

0416A 

MTS 

00100 

MFC 

000515 

; t a f 

7073?? 

' T 0 R 

707321 

•MOO 

70 7 3K4 

• T f M F R 

03316 

■Mi C 

707326 


p L f P PAGE 8 8 


; T'C 

1 T < S 
•IT -'F 
•' T T R 

>V TPS 
•0 i Nf R 
- 0 '- STS 

. o r s w s 
• p - r 4 o 

-IS- omp 
a 1 'HAH 
S’U'TST 
'aj°A i r 

N X C H A R 
) K T E Y T 
D A IRCT 
^AHBTl 
^ A H C TR 
J ASSWS 
3 atniim 

2 A T T “L 

3 ERMRS 

i a \ c n n 
<A\nrx 
■i A s G F N 

< A \ S A V 

< A S T P 

< A'- TAO 
UaTRL 

? 0 h u r i 
?o- : ur2 
?nfOT 
n)r RRO 
5 n f r r s 
’OPTrx 
<0"x i T 
J n [ kitr 
^ HP A SS 
^ 0 S T P C 
} n S T P D 
J E 'DSO 
- F •> D ! T 

-r adi m 

'PiDMO 
J E -i DMP 
<P \f)fHX 

<F TORO 
>t 'SyS 

< F ' V 1 
'F'V 7 

' E : v ,x 
; r ’ v 4 
'b : v s 

< F ■' V A 


70731? 

70738? 

707341 

7073?1 
00715 
0317 4 
03 2J3 
03144 

00154 
•04443 
05270 
00117 
05257 
04274 
0 0 5 7! 5 
05310 
00104 
04405 
03016 
00103 
03730 
00137 
03057 

03060 
03032 
03071 
03277 
03047 

03061 
013724 
013724 

00156 

04522 

00155 
02043 
04471 
04727 
04725 

04473 

04474 
04435 
04407 
00145 
00110 
05014 
00147 
00140 
0011 1 

00130 

00131 
0 013 2 

00133 

00134 

00135 

00136 
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| M ! i 
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; L T R n L 

001 <7 6 

RnS 
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- , : ST A 

0 7 1 5 9 

i p . s h> :s 

0 4 5*6 

>P S5 3 

?! A 5 5 4 

<> > T S T 

07557 

• s n p v 

00 75? 

<s ! prt 

04 796 

/ T - a | r 

7 5 7 7 6 

< T ^ R r r 

0 4 5 4 5 

n "ST R 

04457 

; 

7 55 4 6 

^ TV! 

00 4 9 5 

>n tv? 

07 4 5 6 

i c I y a K 

04759 

i F T F If N 

01 007 

;f r s t p . 

0 4?75 

>UI. OOP 

04090 

tL fsts 

00 2 4.1 


05 6 70 

> p .iff? 

0 5 711 

5° *CF3 

05702 

> P 'i 9 T X 

00474 

■> P ' 3 T X 

00471 

>P T CHN 

03646 

> P T S A V 

03654 

> T ■' R F C 

0 3 4 74 

>T ATRD 
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> T A 1 F 
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; t - 1 w n 
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iT-XTT 

04 350 
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03 3 20 

*F 5 RFC 

0341 2 

‘F ^T(? 

0112 1 


L 1 9 PACE 9 


F • T 1 

0113? 

r ; T 1 0 
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f 'Til 

02075 

F ' T 2 

0 31*0 

F '• T 3 

01203 

F - T4 

0122=5 

F T 5 

01253 

FST 6 

01301 

F 9 T 7 

01 34 3 

E^ 2 K 
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E*T 1 
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F X T 1 0 
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stfxt 
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S T S T p 
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S * 01 1 

01 431 

SI 01 2 

01417 
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v * rj 

05 23 2 

Y- LH p 

052 36 

Y - M A X 

^ c 5 £ $ 


} if -- L f v 

PAGE 

' Y ' H T ;m 

0 5 5 7 2 

■y ,unT 

0 R 4 1 2 

' V ' A i i. 

0 3 5 3 2 

' Y F f : V 

0 3 5 3 5 

‘ Y / F R T 

8 S3 71 

' y 1 A S C 

0 s ? d 6 

' Y i o r T 

8 5 3 4 1 

* Y > 0 r T 

?■ 5 3 3 1 

‘1 "RnP 

014 71 

'1. RK'O 

81513 

* 1 1 £ M f) 

02155 

' 1 5 F 1 G 

022^0 

* 1. 1 i w r 

02177 

'l ’ i.Pi 

0 2117 

'll R n L 

0 213 5 

'L ; QP V 

00222 

; L TST 

00273 

* 4 r T T 

0362 7 

4 ! T K Y 

01 030 

« A TROY 

0 3 6 4 2 

‘C- ; . Or 

000032 

ip iur 

0100 0 0 

iR':MrK 

00127 

iR- Trx 

02032 

JR I T I T 

0 31 8 3 

ip - ASS 

00116 

f p E r R 

00144 

r i n m p 

03451 

PT EnT 

00142 

R r L r n 

00143 

pgrcd 

0514 3 

RGRFC 

0511 4 

f R 0 T X 

00477 



< r L r M 

000014 

<Ci.Of 

00(70?;? 

Ui. or 

00007X 

)R t NCR 

000040 

1S‘- 1 TS 

00100 

:o- i vf-; 

0P1M 

■'0 - ! vF 

001 V- 2 

3 A 1 Nil” 

00103 

3 A - R T 1 

0010,4 

V R/DFN 

00105 

<L trol 

00 1 C 6 

-10 TB 1 T 

00107 

^FiOMO 

00110 

FFCSyS 

00111 

:x i tmo 

00112 

S T R L F N 

00113 

:O v ANO 

00114 

-H.A I MC 

00115 

•tR Q AFS 

00116 

'iU’noT 

00117 

r S T DF X 

00120 

f S| CUT 

00121 

3 X F T F T 

00122 

:xfcnt 

00123 

3 W T E F T 

00124 

1 0 SFI G 

00125 

5 V F E r R 

00126 

•jrchek 

00127 

i E 0 V 1 

00130 

?E''V? 

00131 

X FOV.X 

00132 

RE0V4 

00133 

3 ECV5 

00134 

*E :VA 

00135 

} F :V7 

00136 

’F RMRS 

00137 

? F 0 o R 0 

00140 

.afrcr 

0014 1 

■■ R t f n T 

0014? 

•i R T L F N 

00143 

• R -• E r R 

00144 

-F 3p| NJ 

00145 

;o -ipi n 

00146 

-’E'-DNX 

00147 

; o v p n x 

00140 

jo j efr 

00161 

<y;ista 

00162 

JM^ERR 

00153 

9 -EAD 

00164 

-OFRRS 

00155 

-OF OT 

00156 

■’FI 140 

00200 

L ’ PRV 

00222 

'■ltsts 

00741 

rsivos 

00 25 4 


T s T 

- ■ 2 7 5 

- Tv 1 

’A y 4 P S 

- T y 

' 4 - 6 

• 7 T r y f 

0 ■-* 4 f- 1 

■->! fsp 

-4 -7 4 A 

5 T X 

•/: ? 4 7 1 

- - PT ■< 

0 7! 4 7 4 

' 1 - 0 T X 

A 0 4 7 7 

' I ■ 6 T X 


* t r y t 

•3 3 ^ ' 5 

• X • c U T 

30’ 51 55 

'> ■■ c 

/ 00 515 

r S • UM|. 

00 56 6 

<■’ r st 

0 0 5 A i 

■ v -wmd 

3 O 6 v - 4 

■j . H | c 

00 601 

. H • P A T 

00656 

> P A R 

30667 

- : 1ST 

0 0 66 7 

V . T P S 

00 70 6 

V'TPS 

00 71 5 

. T ■ [)r x 

3 0 7 p 4 

L Al L 

0077 7 

S r OPV 

0 0 7 K 0 

h -0 PV 

00 76 7 

s.- thin 

0 1 0 0 7 

. n - v d t 

010? 7 

A i T K Y 

0 1 0 7 0 

■ H '• P T N 

0 1 0 3 6 

P v A n R 

0 1 0 3 7 

U E 0 T 

010 4 7 

w fot 

0106 4 

Li rns 

01075 

p! TST 

0110 7 

F" > T C* 

011?1 

F ■> T i 

01 135 

r-TP 

01160 

F ' T X 

0120 7 

F'i T 4 

0 1??5 

F * T 5 

01253 

? " T A 

•013 0 1 

f ■ t 7 

01343 

c ' T 1 v'i 

01 405 

P ' ? 

01417 

S' 01 1 

014 71 

i Rnp 

014 71 

1 ' ft M \) 

0151 3 

P • 0 M P 

0 0 0 0 0 

T ' f)MP 

0 ? 0 O’ 4 

r> FN'O 

0 0 0 0 7 

* ■■ T F X 

0P077 

TV- TFX 

000 43 

H ■ R T X 

0005 4 

f - Tl 1 

0 0075 

11 LP1 

0011 7 


-- L I 1 

P A r. E 

r l ' >'<nt 

P P 1 5 5 

' i ’ f n n 

351-5 

r 1 ' I k C 

0717? 

r i - Fi g 

0 7? '0 

- T • T F 6 

P70P0 

A ~ G W S 

0 3 «1 1 6 

-4 , g F \ 

A 7 ’ o 

• A • T 4 1 

/• 7 7 A ? 

A - c n N 

353^7 

A'.QFX 

03060 

' A - T R L 

03061 

<A-\'SAV 

03071 

G H T R L 

03072 

■■ P I T I T 

0 3103 

:OTSWS 

0 3 1 4 4 

>i 0 ’ N r R 

03174 

j T 4 T 0 P 

0321 3 

JO -JSTP 

03223 

TSTSTP 

03247 

stopop 

03257 

T ■? P A T 

0327 7 

-A -,STP 

03277 

<T 1 MFR 

03316 

TESIMC 

03370 

' F S F T L 

0 3 3 4 3 

Tf >2K 

0335? 

R R 0 R 

03370 

TESRFC 

0341 ? 

-> T A R F C 

03 4 3 4 

i RT QMP 

03451 

ryxerv 

03535 

r Y J A 1 L 

03552 

- M U A P 

03565 

Ty-onE 

03574 

E'.TYP 

03600 

i Nt'TRl 

03604 

-T-TPL 

0361 0 

"E - I MO 

0 3 614 

A > T T 

03677 

I R F C. 0 

03 63 4 

T a T R 0 

03641 

a r r n y 

0364? 

xo r con 

03646 

i p r s a v 

03654 

• a ;k? 

0 3 6 5 5 

■P-'CF1 

03670 

i P A C F X 

03702 

'P »CF ? 

0 3 71 1 

;r rat 

03770 

A < l F M 

003774 

a r t p L 

03750 

■'i'Va ? 

(03750 

>'\! c V0t 

0375 4 

. \ F V 9 7 

03770 

. M - V 0 7 

0 3 7 7 4 


Q & 


•- • 1 [ y 

V V <■* 

p & (.. b 

- - v ^ ^ 

4 / . • 4 

VC * 6 

/ 4 / x 

• ■- - v 7 ' 7 

■A 4 0 - 4 

• \ ' u 0 i 

0 ^ .^4 

v 1 f) p 1 

7 4 6 .0 

• !'■ \\)V? 

A 4 0 7 4 

• \ : n p 5 

4 1 0 

'ftp 4 

A 4X14 

..v ' 0 ^ 

v] 4 x 0 71 

> : n p 6 

0 417 4 

- " H(71 7 

0 414 0 

- T ■* GMT 

75 4 1 S 6 

OvFlfP 

0 4 16 6 

■; T - WRO 

0 4 2 7 6 

t a p 

04?i5 

r INC 

3 4 2 M 

>F ' w R 0 

04 2 4 4 

\ • R T T 

04 26 4 

-F-' SKP 

04? 70 

x: H A K 

0 4?74 

'(: T $TR 

04276 

T ' A I F 

0 4 30 7 

■HI OOP 

04320 

- T - I M C 

■A 4 32 6 

T - *w n 2 

04334 

T ” X T T 

0 4 36 7) 

-t -par 

0 4 35 4 

• f rp«L 

0 4 3 71 

V : 'WPO 

0 4 4 0 4 

A-^CTR 

0 4 4 0 5 

;v;xor 

04 4 0 6 

F • n t t 

0 4 4 0 7 

HSTPD 

0 4 4 2 4 

F ‘ P G Q 

04435 

S OMP 

04443 

TSSTP 

04457 

U> X I T 

04471 

n^TPC 

04473 

N Rns 

04 50 4 

r . p r i ) 

0452? 

tsrfc 

04543 

P t. s S 3 

0 4 5 6 4 

D -‘SW3 

0 4 5 6 6 

O' - AT A 

04575 

m OOP 

0 4 677 

n : is? r. r 

0461 5 

O*- PRO 

0 4 6 4 0 

0 r VGA 

0 4 6 7 6 

E^FI G 

0 4 7 21 

OG OOO 

04 723 

OP F A 0 

0 4 7 2 4 

pH ASS 

04 7 2 5 

STPPL 

0 4 726 

0 T NrR 

04727 


Q 


‘■"1.19 PAGE 


■ f < T c i_ 

0 4 7 5 7 

’^'fR4K 

0 4 7 6? 

-A ’ K 1 

0 4770 

< n tap 

7, 5 0 0 4 

•f il)WP 

0601 4 

■P RFC 

0 6114 

<P - r r u 

0 “5 1 4 3 

■ 0 -KWO 

05 200 

T Y -■ F T 

05232 

rr- lup 

05236 

T Y 1 ARC 

05246 

• r tchr 

06254 

UJPA 1 R 

05257 

tUCHAR 

05270 

> E T R C K 

0527? 

cfthre 

05300 

LFRAI F 

05305 

p T H A 1 F 

05306 

: M n p T R 

05307 

■ J A ! RCT 

05310 

TE 'PFR 

05311 

typet 

05312 

rypom 

05331 

r Y 1 OCT 

05341 

TYCEF! 

05346 

tyolhp 

05354 

TYOOIIT 

05363 

r y y e r t 

05371 

TVPTPL 

0540? 

TycunT 

05412 

■C-ARl 

0541 3 

■j C R A R 2 

054 1 4 

‘ C - A R 3 

05415 

C -AR4 

06416 

1 C - A R 5 

0641 7 

..'f-APfi 

05420 

r y - e r. t 

05421 

' f y T 1 

05474 

i e a? 

05450 

! E v T 3 

05500 

r F ' T 4 

0 5 50 2 

' F ' T = 

06506 

‘ F ' T A 

0551 2 

' F ■ T 7 

0551 6 

■ F > T P 

05572 

1 F < T R 

05526 

f y “ m i m 

0553? 

r y - m 4 x 

05540 

05546 

' y 'AVI 

05547 

Y ■ A V 2 

05567 

' r T 1 / 

0666 7 

' F 'Til 

0 = 577 

■' F • T 1 2 

(A F ^ ^ 

F ' T 1 3 

0 c; £ v. 7 


°6 


-Li * 

^A/;t 

'■ - - Tl 4 

0/6 1 7 

■■■ i: - Tin 

/ - a i i 

^ ri 6 

•/ c; $ - 7 

c ' T 1 7 

■? c 7/S 

f- • Tl d 

v5 c . 7 i 5 

■ F ' T 1 S 

7 . c, 7 9 3 

r • T p v: 

2 5 7 > 7 

' p ' TP ! 

5 7 '< s 

> 1 T P * 

06 7^ 

► 'T?3 

0 K 7 K 5 

' t 'T P 4 

05 7 * 3 

>R ‘TAB 

F 07 4 v 1 - 0 

- • TAB 

0 0 7 4 4 i/? 

■ d - Tab 

0 0 7 S -•* 0 

^ * T a H 

v' 0 7 5 4 0 

• - Tah 

0 7 67 0 

- .-Tab 

0 0 76 4 0 

■R - T A ^ 

007700 

: B / T A ft 

007740 

P 'Ur 

010 0 0 0 

n-iJFi 

0 1 3 7? 4 

0 UF 2 

0 17 7/4 

S ttcL 

017700 

o r b r t 

1 0 0 f 1 0 0 

T rp 

707371 

T -0 

7 3 7 3 0 4 

T • C 

70731 2 

T r 

707321 

T i F 

7 0 7 3 P 2 

C 

707374 

T* C 

7 0 7 3 P 6 

T S F 

7073^1 

T 

707352 




